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ALIGNMENT  PROGRAMS 


IMU  Orientation  Determination 


P51 

IMU  Orientation  Determination  Program 

IMUCHK 

Make  sure  ISS  is  running 

NCOARSE 

Initiate  gyro  compensation 

Sh.  4 

COARSE 

Coarse  align  IMU 

■ Sh.  9 

PLANET 

Provide  reference  vector  for  sighted  celestial 
body 

Sh.  11 

Selected  by  astronaut  via  DSKY  by  V37E51E 


Determine  the  inertial  orientation  of  the  IMU 
using  sightings  on  two  celestial  bodies  with  the 
AOT  or  a backup  optical  system.  The  program 
may  only  be  performed  while  the  LM  is  in  flight. 


ALARM 


Light  PROG 
ALARM  light; 
set  alarm  code/ 


Input: 

Alarm  Code  210 
(IMU  not  operating) 


GOTOPOOH/ 


Terminate 


''GOPERFl  . 
display  flash- 
ling  V50N2  5 
checklist 
code  15 


VGOTOPOOH/ 


Enter 


Proceed 


P51B 
Sh.  4 


Please  perform  celestial  body 
acquisition 

R1  - 00015 
R2  - blank 
R3  - blank 

Skip  coarse  alignment 


Group  4 


Set  up  restarts  to 
schedule  next  location  y 
as  a FINDVAC 
job  with  priority  13 


Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

P5 1 IMU  Orientation 
Determination 

!DRAWN  ^.3^/ 

1 

1 

Ij-^MINARY 

DOCUMENT  NO. 

FC-3500 

ANALST " 

7 — 7 ^ 

DXMR 

APPR'D 

1x2jL1 

REV2  ISHECT  2 OF  24 1 

From  Preceding  Sheet 


Zero  the  desired  gimbal  angles 


Display  Noun  22: 

desired  CDU  angles 

R1 

= 000.00 

deg 

(THETAD) 

R2 

= 000.00 

deg 

(THETAD  +1) 

R3 

= 000.00 

deg 

(THETAD  +2) 

Now  display  V41: 
coarse  align  CDU's 


Coarse  align  and  return  to  fine  align  mode 
Input: 

THETAD,  THETAD  +1,  THETAD+2: 
desired  IMU  gimbal  angles 
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P5  1 IMU  Orientation 
' Determination 

LUMINARY 

ID 

DOCUMENT  NO. 

FC-3500 

ANALST ' 
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/ Set  up  restarts  to 
/ schedule  last  display  . 
Ap51  +18D)  as  a FlNDVAc/ 
job  with  priority  14  / 


NCOARSE 


1/PlPADT  TIMEl 

Set  time  of  last  compensation  to  present. 

PIPAX  - 0 

Clear  PIPA  counters 

PIPAY  0 

PIPAZ  *-  0 . 

1 

GCOMP  --  (0,0,0) 

Zero  compensating  torques 

DRIFTFLG  Enable  gyro  compensation 


Return  via 
^QPRET  / 


STARIND  0 


Indicate  first  of  two  sightings 


P51C 


TJeTonTsightingW^  ^ 


Set  up  restarts  to 
schedule  next  location 
as  a FINDVAC 
job  with  priority  13  I 


Next  Sheet 


From  Preceding  Sheet 

Via  BANKCALL 


'AOTMARKX  Output: 


Take  sighting' 
on  desired 
Vcelestrial  bod:v 
FC-3530 


AOTCODE 


AOT  position  code  and  star 
code  from  N71  display 


STARSAV2^  = (STARAD  +6)„  = LOS  to  celestrial 


V 


body  in  SM  coords 

TSIGHTj^  = time  of  sighting  in  csec  @ 2 


^AOTSTALL' 
Wait  for 
completion 
^of  AOTMARK/ 
FC-3220 


Bad 

return 


Normal  return 


CURTAINS 
Light  PROG 
ILARM  light;  set  ^ 
alarm  code  217 
FC-pHO 


Indicate  bad 
return  from 
stall  routine 


Is  this  the  first  or  second  sighting  ? 
Yes  - second  sighting 


No  - first  sighting 


STARSAVl 


V 


(STARAD  +6). 


V 


C 


P51D 


3 


Observed  direction  of  sighted 
body  in  SM  coords  @2^ 


Group  4 


Set  up  restarts  to 
schedule  next  location 
as  a FINDVAC 
job  with  priority  13 


Next  Sheet 
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From  Precedmg  Sheet 


STARIND=1 


Second  sighting? 
V Yes 


yrJo -first  sighting 

/ Group  4 / 

/ Set  up  restarts  to  / 
/schedule  next  location  / 
as  a FINDVAC  job  witly 
priority  13  / 


MPACjj  - 

TSIGHTjp 

/ PLANET \ 

/Get  referenceX 
/ direction  \ 

\pf  sighted  body 

\ Sh.  11  / 

1 

PLANVECy 

- MPAC^ 

i 



STARIND-  1 

3 

r 

Input:  Time  in  MPACj^, 

AOTCODE  = star  code 
Output:  MPAC„=stored  direction  of  sight 

^ 1 
ed  body  in  reference  coords  @2^ 


Stored  direction  of  first  sighted  body 


Indicate  second  sighting  to  be  done 


P51C  +1 


k Sh.  4 / 


Loop  to  sight  second  celestial  body 
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MPACjq  - 

TSIGHT^ 

Time  of  second  sighting 


Input;  Time  in  MPACq, 

AOTCODE  = star  code 

Dutput:  MPAC^  = Stored  direction  of  sighted  body  in 
reference  coords  @2^ 


Stored  direction  of  second  body  in  REF  coords 
Stored  direction  of  first  body  in  REF  coords 
Sighted  direction  of  first  body  in  SM  coords 
Sighted  direction  of  second  body  in  SM  coords 


CHKSDATA 


Check 


validity  of 


sightings 


FC-3510 


splay  angular  difference  between  the  stored  and  sighted 
direction  for  each  celestial  body 

3ut;  STARAD^,  (STARAD  + 6)^,  PL6^,  PL  12^ 

tput;  FREEFLAG:  Set  if  astronaut  keys  in  proceed 

(approval  of  sightings) 

Clear  if  astronaut  keys  in  recycle 
(rejection  of  sightings) 


/ Is  ^ 
Ifreeflag 
\ set 
\ / 


Next  She 


P51  +2 


Repeat 
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AXISGEN 

Compute 
transformation , 
matrix 


' 

XI  -ECADR(XDC) 

X2  - EC  ADR(  REFSMMAT) 

\ 

/MATMOVEN 

Move 
matrix 
data 

FC-3510. 


Set 

REFSMFLG 


GOTOPOOH 


Calculate  IMU  inertial  orientation  W.  R.  T 
celestial  coordinates  as  defined  by  cel- 
estial bodies  #1  and  #2 


Input:  Sighted  star  vectors  in  SM  coords  in 


STARAD, 


(STARAD+6)y;  catalogued 


Output:  XDC 


M 


PL12y  in  ref  coords 

Tr  ansf  o rm  ation 
matrix  between 
REFGRENCE 
and  SM  co  - 
ordinate  sys- 
tems 

Prepare  inputs  to  MATMOVE 


star  vectors  in  PL6^ 

= /XDC^ 

\ZDCJ 


Input:  XI  = -ECADR(matrix  to  be  moved) 
X2  =-ECADR  (matrix  to  be  stored 

into) 

Result:  REFSMMATj^i ^^‘^M 


REFSMMAT  is  valid 


Terminate  program 
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From  Preceding  Sheet 


(^DOCORS  ^ 


aMUCOARS> 

Coarse  align 
IMU  gimbals 

FC-3220 


Normal  return 


IMUFINE 

Return  to 
fine  align 
mode 

FC-3220~ 


ImustallN 

Wait  for 
completion  of 
vIMU  operatior 


FC- 


3220 


Normal  return 


Return  via 
QPRET 


Input;  THETAD,  THETAD -t-1,  THETAD -t-2 
= desired  IMU  gimbal  angles 


IMUSTALLN 
Wait  for 
completion  of 
IMU  operation y 

FC-3220 


Bad  returr 


CURTAINS 

Light  PROG 
ALARM  light; 
set  alarm 
code  217 

FC-3140  . 


I Indicate  bad  return 
from  stall  routine 


Bad  return 


/CURTAINS 

Light  PROG 
ALARM  light; 
set  alarm 
code  217 

FC-3140 


Indicate  bad  return 
from  stall  routine 
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G 


PLANET 


Provide  the  reference  vector  for  the  sighted 
celestial  body.  Stars  are  fetched  from 
the  catalog.  Sun,  earth,  and  moon  are 
computed  by  LOGS  AM 

Input:  Time  in  MPACj^, 

AOTCODE 

Output:  Vector  in  MPAC. 


TSIGHT 


■MPAC 


D 


V 


AOTCODE, bits  6-1 


6 -AOTCODE 


(bits  6-  1) 


I 


Set  up  index  for 
star  table  (each 
star  takes  6 
locations) 


OL 


00-,  = planet 

O 

- 45g  = star  code 


46a 

47„ 


sun 

earth 


/ TesN 


Which  sighting? 


50g  = moon 
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(CALSAMI^ 


Calculate  celestial  body  vector  for 
the  body  defined  by  BESTI  or 
BESTJ 


^ALSAM  ^ 


. s 

t 

MPACj^  - TSIGHTj^ 

s 

Time  of  sighting 


LOCSAM  \ Input:  MPAC_  = time  of  sighting 
Compute  \ U 

Dosition  of  earths 
vsun,  and  moon/ 

F(5-3510  /Output:  VEARTH^,  VSUN^,  VMOON^ 

earth,  sun,  moon  directions 
in  reference  coords 


1 

r 

VEARTH,^^ 

* VSUN,^,, 

Next 

Sheet 

Interchange  vectors  to  get 
into  the  right  order 
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ID 

DOCUMENT  NO. 
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From  Preceding  Sheet 


Load 

STARAD^  = VEARTH^ 

= sun  direction 
or  (STARAD  +6)^  = VSUN^ 

= earth  direction 
or  (STARAD  -(-12)^  = VMOON^ 


= moon  direction  in 
reference  coordinates 

@2^ 


Which  sighting  ? 


1 

VSTARIN9  ^ 

First  ^ Second 

r ’ 

[ 

MPAC^  - (STARAD  - 228D -^^BESTI)^ 

MPACy  - (STARAD  - 228D -^BESTDy 

Return  via 
V GCTR 


SUBROUTINES  CALLED  WHICH  ARE 


SUBROUTINE 

NAME 

FLOW 

CHART 

DESCRIPTION 

WHERE 

CALLED 

AOTMARK 

FC-3530 

TAKE  SIGHTING  MARK  ON  DESIRED 
CELESTIAL  BODY 

SH.  5 

AOTSTALL 

FC-3220 

WAIT  FOR  COMPLETION  OF 

AOT  OPERATION 

SH.  5 

AXISGEN 

FC-3310 

COMPUTE  TRANSFORMATION  MATRIX 

SH.  8 

CHKSDATA 

FC-3510 

CHECK  VALIDITY  OF  A PAIR  OF  STAR 
SIGHTINGS 

SH.  7 

CURTAINS 

FC-3140 

LIGHT  PROG  ALARM  LIGHT;  SET  ALARM 
CODE  217  (BAD  RETURN  FROM  STALL 
ROUTINE) 

SH.  5,10 

IMUCOARS 

FC-3220 

COARSE  ALIGN  IMU  GIMBALS 

SH.IO 

IMUFINE 

FC-3220 

RETURN  IMU  TO  FINE  ALIGN  MODE 

SH.IO 

IMUSTALL 

FC-3220 

WAIT  FOR  COMPLETION  OF  IMU  OPERATION 

SH.ro 

LOCSAM 

FC-3510 

COMPUTE  POSITION  OF  EARTH.  SUN,  MOON 

SH.13 

MATMOVE 

FC-3510 

MOVE  MATRIX 

SH.  8 

NAME 


MEANING 
WHEN  SET 


MEANING 
WHEN  CLEAR 


WHERE 

SET 


WHERE 

TESTED 
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^ 

PRGMr  ^ 

1 DOCUMENT  NO. 

LUMINARY  ID  1 FC-3  510 

ANALST 

DOCMR 

WBBR 

REV  1 ISHEH  14  OF  55 

From  Preceding  Sheet 


Recycle, 
Data  Loaded 


-I^LSDISP 


via  BANKCALL 


GOFLASH 

|Displav  flashing  \ Terminate 

V06N89 
FC-3080 


Verify  noun  89: 
landing  site  posi- 
tion 

Rl:  XX,  XXX  deg. 
latitude 
(LANDLATp) 


V — ' 7 R2:  XX.  XXX  deg. 

yOTOPOOH/  1 / 2 longitude 


(LANDLONGp) 

R3:  XXX.  XX  nm. 
altitude 
(LANDALTp) 


Re- store  values  in  case  changed 
during  display 


LONGq4_21.  LANDLONGpil  longitude  in  revs  @ 2 


D 


ALT 

LAT 


LAND ALT 
LANDLAT 


altitude  in  m @ 2 


29 


latitude  in  revs  @ 2 


0 


MPAC 


D 


(GDT/2  +4)t 


t T in  csec  @ 
align 

228 
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From  Preceding  Sheet 


K , Input: 

LAT^  = 

A.ALOTOR’W 

D 

/ Convert  \ 

latitude,  longi-\ 

LONG„ 

tude,  altitude  / 

D 

\to  position  / 

( 

\ vector  / 

ALT^  = 

VC-3330  / 

D 

1 

1 

MPAC_ 

@ 2 


0 


D 


altitude  in  m @ 2 
= corresponding 


29 


28 


time  in  csec  @ 2 

Output:  ALPHAt^  = position  vector 
in  m.  in  reference 
coords  @ 229 


Return 
via  QMAJ^ 
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LUMINARY  ID 

DOCUMENT  NO. 

FC-3510 

ANALST 

DXMR 

REV  1 ISHEHie  Of  55  1 

J Compute  gimbal  angles  required 
^ for  desired  IMU  orientation 


CnUTRIG' 
Determine 
''trigonometric 
functions  of  IMl 
jimbal  angles 
11^ 


/Galcsmsc 

Compute  NB 
axes  in  SM 
coordinates 

FC-3320 


Output:  SINCDUX,  COSCDUX"!  sines,  cosine 
SINCDUY,  COSCDUyV  of  IMU  gimbal 
SINCDUZ,  COSCDUZJ  angles  @ 2^ 


Input:  SINCDUX,  COSCDUxl  sines,  cosines 
SINCDUY,  COSCDUY  f of  IMU  gimbal 
SINCDUZ,  COSCDUZJ  angles  g 2^ 


Output:  XNB 


M 


XNB 

YNB. 

ZNB 


= NB  axes  in  SM  (present) 
coordinates  @2^ 


S52.  2A 


XNBy<: — Unit  (XNByX  REFSMMATj^) 
YNBy<— Unit  (YNByX  REFSMMATj^) 
ZNB^4 Unit  (ZNByx  REFSMMATm) 


Convert  NB  axes  from  SM 
to  reference  coords  @ 2 


1 


4 
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From  Preceding  Sheet 


(S52.  2.  1 ^ 


% 

1 

Xl|^  - Adr  (XSMD) 

X2f-  - Adr  (XSM) 

Set  inputs  to  MATMOVE 


mATMOVi 

Move 

matrix 


Sh.  50 


Input:  XI  = - Adr  (matrix  to  be  moved) 

X2  = - Adr  (matrix  to  be  stored  into) 


Result:  XSM 


M 


XSMD 


M 


'CALCGA 
Compute 
desired  IMU 
gimbal 
angles 
"FC-5S10 


Input:  XNBj^  = NB  axes  in  reference  coordinates 
@ 2^ 

XSMjyj  = desired  SM  axes  in  reference  coords 
@ 2^ 

Output:  THETAD,  THETAD  4-1,  THETAD  +2 

= IMU  gimbal  angles  necessary  to 
achieve  desired  orientation 
(2's  complement)  in  revs  @2’^ 


Return 
via  QMJ 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

P52 

DRAWN 

PRGMEf  ^ 
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DOCUMENT  NO. 
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ANALST 

DOCMR 

REV  1 ISHEH  18  OF  55 

Perform  gyro  torquing 
coarse  alignment 


Input:  XDC 


M 


/CALCGTAX 


XDC 

YDC 

V 

, ZDC  . 

L Yl 


= desired  SM 
axes  relative 
to  present  SM 
coordinates  @ 
„1 


Compute  Euler 
/angles  corres-  \ 
ponding  to  trans/ 

formation/  Output:  OGC,-^,  IGC^,  MGC 

FC-33T07 


D'  ^ D’  D 
Euler  angles  of  corres- 
ponding transformation 
gyro  torquing  angles 
necessary  to  achieve 
desired  orientation  in 
revs  @ 2O 


Clea 
DRIFTFLG, 
REFSMFLGl 


Don't  do  gyro  compensation 
REFSMMATjyj  invalid 


via  BANKCALL 


GODSPR 


Display 

V16N20 


FC-3080 


Generate  (after  transfer  to 
ENDOFJOB)  display  of  noun  20 
(actual  IMU  gimbal  angles): 

Rl:  XXX.  XX  deg.  roll  angle 
(CDUX) 

R2:  XXX.  XX  deg.  pitch  angle 
(CDUY) 

R3:  XXX.  XX  deg.  yaw  angle 
(CDUZ) 


Next  Sheet 
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From  Preceding  Sheet 


ECADR  (OGC) 


Load  input  to  IMUPULSE 


via  BANKCALL 


/MUPULSE 
/ Torque 
'IMU  gimbal 
gyros 

\ FC-3220  , 


Input;  A = ECADR  (>f),  where 
\ JTd  [=OGCj3],  ur+2)j3  [=IGC, 

/ contain 


gyro  torquing  angles 
in  revs  (§  20 


via  BANKCALL 

V 

/iMUSTALLX 

'wait  until  \ Bad  return 

IMU  operation^ ^ 

complete  / 


FC-3220/  / CERTAINS  \ 

/ Light  PROG  ALARM  \ Indicate  bad 
Normal  light;  set  alarm  ) return  from 

return  \ code  217  / stall  routine 


/ Group  4 

/Set  up  restarts  to 
/schedule  next loca- 
j tion  as  a FINDVAC 
job  with  priority  13/ 


- Adr  (XSMD) 

- Adr  (REFSMMAT) 


Set  inputs  to  MATMOVE 


Next  Sheet 
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LUMINARY  ID  FC-3510 


SHEH  20  Of  55 


From  Preceding  Sheet 

1 

MATMOVe\/'^P^^-  ^2 


Move 

matrix 


Sh.  50 


Result: 


= - Adr  (matrix  to  be  moved) 

= - Adr  (matrix  to  be  stored  into) 


REFSMMAT,^<— XSMD 
M M 
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PRGMR 

ANALST 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3510 

DXMR 

APPR'D 

REV  1 |SHEn210F  55| 

R51  J Fine  alignment  routine 


s 

Save 

QPRET 

in 

QMAJ 

J 

t 

R51.  1 y 


Group  4 


Set  up  restarts  to  schedule 
next  location  as  a FINDVAC 
job  with  priority  13 


c 


R51C 


via  BANKCALL 


Recycle, 

ENTR 


GOPERFl 


Display  flashing 


V50N25 


/Terminate 


I R51E 
3h.  2 


FC-3080 


Proceed 


Rl: 


GOTOPOOH 


7 


00015 

Checklist  code 
for  "Please  per- 
form celestial 
body  acquisition" 


Next  Sheet 
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APOLLO  GUIDANCE  AND  NAVIGATION 


From  Preceding  Sheet 


^LOADTIMI 
Load 
present  time 


Output:  MPACj^=  present  time  in  csec  @ 2 


28 


FC-3150 


MPAC 


D 


•MPACj^+  36000csec. 


Estimate  6 min.  from  now  to  sighting 


Input:  MPAC_.  = t 


in  csec  @ 2 


28 


/I^OCgAM 

/Get  directionsN 
of  Sun,  Moon, 
Earth 

Sh.  30 


' D sight 
Output:  VSUNy  = Ug  direction  of  sun 
VEARTHy=  Ug  direction  of  earth 
VMOONy  = Uj^  direction  of  moon 


,1 


CSUN 


D 


all  in  reference  coords  @ 2 
cosine  of  angle  of  occultation  of  Sun 


CEARTHg=  cosine  of  angle  of  occultation  of  Earth 
CMOONp.  = cosine  of  angle  of  occultation  of  Moon 
all  @ 2^ 


Bad 

return/ 


^PICAPAR 
Pick  a pair 
of  stars 
for  sighting 


via  BANKCALL 
Input: 


Sh.  34 


No  star 
pair  found 


Normal 

return 


c 


R51F 


\ 



R51E 

.Sh.  24, 


Next  Sheet 


VEARTHy,  VSUNy, 


VMOON 


V 


Output: 


= directions  (from  LM)  of  Earl^,  Sun,  Moon, 
in  reference  coordinates  @ 2 
CEARTHg,  CSUNg,  CMOON^ 

= cosines  of  angles  of  occultation  of  Earth, 
Sun,  Moon  @ 2^ 

BESTI,  BESTJ  = indexes  to  reference  directions 
of  stars  found 


MIT  i;iSTI!L!VE:.TATIC::  LMJ 
CAMBRIDGE,  MASS. 


0RAW;j , 
PRGMR 
ANA.LST . 
DOCMR 


[3/(./70 


APOILO  GUIDANCE  AMD  f.'AVIGATIC.'J 


P52 


LUMINARY  iD 


REVl 


OOCLI.V.Ei.T  f.'O. 
FC-3510 

~|SHEU~23"or55 


From  Preceding  Sheet 


R51I  "j 


ALARM 


Light  PROG  ALARM 
light;  set  alarm 
code 


Input:  Alarm  code  405 

(Two  stars  not  availabe) 


FC-3140 


via  BANKCALL 


Recycle 


"^GOFLASH 

Display  flashing 
V05N09 


Terminate 


FC-3080 


R51C 


h.  22. 


Proceed 


\ GOTO POOH / 


Display  alarm  codes 

Most  recent  is; 

00405 
(set  above) 


R51E 


) 


- N 

1 S1ARIND<— + 0 

i 

c 


Initialize  index  value  to  indicate  first 
star  sighting 


R51.  2 


R51.3 


Group  4 


/Set  up  restarts  to 
/schedule  next  location/ 
/as  a FINDVAC  job 
/with  priority  13 


Next  Sheet 


From  Preceding  Sheet 


Input:  S TARIND  = index  to  which  star  sighting 

BESTI  or  BESTJ  = corresponding  star  index  value 

Output:  STARCODE  = codes  for  AO  I position  detent  and 

sighted  body 


via  BANKCALL 


R52 


laneuver  to  ' 
^align  optics  as 
, desired  for 
sighting  / 


Sh.  42 


MIT  iijSTnu.v.!:iirATic:i  ia.d 
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DRAWN 
PRGMR  . 
AMALST . 
DOCMR 


APOLLO  GUID.',‘:CE  AKD  NAVIGATIC.'i 


P52 


LUMINARY  ID 
rIv”! 


DOCUMENT  NO. 
FC-3510 

~'l?nEn~2~5~0F"55r 


From  Preceding  Sheet 


MIT  INSTKUMaFATIC.'J  lAD 
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APOLLO  guida:;ce  AI.'0  MAVIGATIC.'J 

P52 

DRAWN 

PKGMR 

ANALST 

DOCU.'/.EAT  no. 

LUMINARY  ID  FC-3510 

DXMR 

APPR'D 

REV  1 (SHEET  26  0F55 

MIT  IIJSTRU.ME.'.'fATIC.'J  'uA!! 
CAMBRIfiSE,  MASS. 

APOLLO  GDID'.rCE  At'O  NAVIGAITC.J 

DRAW7J 

PRGMR 

?■  P52 

ANALST 

DOCU/.'iF.A'r  NO. 

LUMINARY  ID  FC-3510 

OOCMR 

APPR'D  Q^?:^?YXL.Cv£*^, 

l-V  1 IS'iSKT  27  CF.^.5 

From  Preceding  Sheet 


^CHKSDATi 
'^Check  validit:^ 
of  star 
sightings 

Sh.  46 


Input:  STARAD^,  (STARAD  +6)^ 


= 2 star  vectors  from  reference  list 
PLSy,  PL12y 

= same  2 star  vectors  from  star  sightings 


Output;  FREEFLAG  - indicating  astronaut' s response  to 
V06N05  display 
Did  astronaut  key  in  "Proceed"  ? 


No 

^ 

f 

R51K 

Nsh. 

29X 

AXISGEN 


Compute 
transformationN 
matrix 

FC-3310 


R55 


Align  IMU 
as  desired 


Sh.  48 


\K 

Next  Sheet 


Input:  STARADy,  (STARAD  +6)y 

= 2 star  vectors  (reference)  in  SM  (desired) 
coords  @2^ 

PL6y,  PL12y 

= same  2 star  vectors  (sighted)  in  SM  (actual) 
coords  @ 2l 


Output:  XDC 


M 


XDC 

YDC 

ZDC 


STARAD 


M 


■ transformation  matrix  giving  desired  SM 
axes  in  terms  of  present  oneSi@  2^ 


Input:  XDC 


M 


XDC 

YDC 

ZDC 


= desired  SM  axes  relative  to 
present  SM  coords  @ 2^ 
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APO'J-O  GUID.'.NCE  Ai’O  IIAVIG-.TIC:.' 

^ P52 

DRAWN  ^ 

PRGMR 

! DCCU;.iENT  NO. 

LUMINARY  ID  j FC-3510 

ANALST 

DXMR 

REV  I |SKEEr28  6,-55 

From  Preceding  Sheet 


Procee- 


Return  to 
fine  align 


Clear 
PFRATFLGl 


c 


Re- initialize  flag  to  indicate  preferred 
IMU  alignment  not  computed 


R51K 


J 


MIT  INSTliUMCr.'TATIC;)  U3 
i CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AMD  MAVIGATIC.I 

^ P52 

PRGMR 

AiWLST 

DOCUMEI.T  flO. 

LUMINARY  ID  FC-3510 

DOCMR 

Ukilt 

REV  1 ISHEtr  29  Or  SB 

LOCSAIvI^ 


A 

Save 

QPRET 

in 

QMIN 

^ 

f 

TSIGHTjj-*—  MPACj^ 

' 

Store  sighting  time  in  csec  @ 2 


28 


,28 


'D 


Compute 

position  of  Sun\  Output:  VSUN^  = direction  of  Sun,  in  Earth  - centered 
and  Moon  / ''  , 

reference  coords  @ 2^- 


FC-3345 


f 

T DE  Cl  ^TS IGH  T 

i 

r 

VMOON 


V 


direction  of  Moon,  in  Earth  - 
centered  reference  coords  @ 2^ 


^LEMPRECN 
Integrate  (pre^ 
' cision)  LM  state 
vector  to  de- 
sired time  ti 
FC-  3350 


Load  time  for  LEMPREC 

Input:  TDECl^  = t^  in  csec  @ 2 
Output:  RATT 


28 


V 


29 


r (t^)  = LM  position  at  tj^ 

in  reference  coords  in  m @ 2 
VATTy  = V (tj^)  1 LM  velocity  at  t^  in  reference 
coords  in  m @ 2*^ 

X2  - indicates  earth  - or  moon  - centered 
coordinate  system  by  value  of  0 or  2, 
respectively 
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2/^0 
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From  Preceding  Sheet 


MIT  irjSTi:U.V.Ei.TATIO?i  1/.8 
CAMbRIDGE,  MASS. 


drav;n 
PRGMR 
ANAEST . 
DXMR 


APPR'DH^?(A<^l^(Y\Qjul3/G/7ol^^^^  ^ 


APOLLO  G'JIOA.VTE  Af.'D  K'AVIGAl IC.'J 


P52 


iLUMINARY  ID 


OOCLIMEILi  A'O. 

FC-3510 


'I'siiitrSl  o:-  55 


29 

Distance  between  Moon  and  LM  in  m @ 2 

= Moon  equatorial  rodius 
iVi  oq 

= 1738090  m.  @ 2 

OQ 

Input:  PL36p,=  distance  to  body  in  m @2 

^ pq 

MPACq  = radius  of  body  in  m @2^ 

Output:  MPAC_  = cosine  of  angle  of 

^ 2 
occultation  @ 2 


2 

Cos  (angle  of  occultation  of  Moon)  @ 2 

@ 2? 


Next  Sheet 




CMOONj^e-  MPACj^ 

CEARTH^Cos  (5°) 


MIT  INSlRU.ViffJTATIC.'J  l/iB 
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^ P52 

DRAWN  A , 
PRGMR 

i DOCUMEf.T  NO. 

LUMINARY  ID  FC-3510 

ANALST 

DOCMR 

l/AiZA 

RtV  1 lSh:iEr32  OF  55 

Pick  a pair  of  stars  for  sighting 


PICAPAR 


9 


,MAKECADR 
'Form  CADR' 
of  return  ad- 
dress 


FC-3060/ 


CDUTRIG  \ 


Determine 
'trigonometric 
functio  ns  of 
IMU  gimbal 
angles 
££-3.320/ 


/CALCSMSC 
Compute 
'NB  axes  in  SM 
coordinates 


FC-3320/ 


BESTI  4 

— 0 

BESTJ  <r 

— 0 

Next  Sheet 


Output:  A 


CADR /return  location  \ 
\calling  program  ) 


Output:  SINCDUX,  COSCDUXl  sines,  cosines 

SINCDUY,  COSCDUX  V of  IMU  , 

SINCDUZ,  COSCDUZJ  gimbal  angles  @ 2 


Input:  SINCDUX,  COSCDUX 
SINCDUY,  COSCDUY 
SINCDUX  COSCDUZ 


Output:  XNBj^ 


XNB.^ 

YNB^ 

ZNB.^ 


NB  axes  in  SM  (present) 
coordinates  @ 2^ 


Initialize  flag  to  indicate  less  than  two  stars  in  field  of  view 


Initialize  star  number  registers 


i MIT  INSTRDMEMTATICN  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDA.JCE  AND  NAVIGATiaS 

DRAWN  , 

7 P52 

PRGMR  ^ 

/ 

ANALST 

1 DOCUMENT  NO. 

LUMINARY  ID  j FC-3510 

DOCMR 

^PPR'D 

REV  1 ISHEET  34c:55' 

From  Preceding  Sheet 


Jnit  [(1/2  XNB^  + 1/2  ZNB^)  x REFSMMAT^]  ^TefSei'fcoor^i- 
' nates  @ 2^ 


XI  ■# — 228D  Initialize  index  register 


Find  star  (in  reference  table) 
within  50°  of  AOT  shaft  axis 


PICEND 
sSh.  40/ 


Xl^Xl  - 6 


(CATLOG-Xl)  SAX- 
cos  (50°) 


Star  in  AOT  field  of  view  ? 


^ 

Yes 

' 

VO  > VI 

X2  XI  Initialize  other  index  register  to  index  of  star  found 


Next  Sheet 
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From  Preceding  Sheet 


Input:  MPAC,^  = star  direction  in  reference  coordinates 
@ 2^ 

VEARTH^  VSUN^,  VMOON^  = directions  of 

Earth,  Sun,  Moon  in  reference  coords 

@ 2I 

CEARTHjq.  CSUNj^,  CMOONj^  = cosines  of 

angles  of  occultation  of  Earth,  Sun, 
Moon  @ 22 

Output:  CULTFLAG  - indicating  whether  star  is  occulted 


Is  star  occulted  ? 

Yes:  go  find  another  star  pair 


ik 

MPAC,^^ (CATLOG  ^ X2)y 


Load  second  star  found 


OCCULT 
^Determine 
whether  star 
is  occulted 


Sh.  41 


Input:  MPAC  = star  direction  in  reference 

V 

coordinates  @ 2 

VEARTH,^.  VSUN,^,  VMOON,^  = directions  of 

Earth,  Sun,  Moon  in  reference  coor- 
dinates @ 2^ 

CEARTHq,  CSUNjj.  CMOONj^  = cosines  of 

angles  of  occultation  of  Earth,  Sun, 
Moon  @22 

Output:  CULTFLAG  - indicating  whether  star  is 
occulted 
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From  Preceding  Sheet 


Next  Sheet 
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End  of  search  for  star  pair 
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ws^ 
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star  is 
occulted 
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ANALST 

DOCMR 

■H 

REV  1 |shEET41  0F55 

Optics  positioning  routine 


\ Which  star  ? 


/ Test  \ 1 

orn  A nT'NTT^  V. 


Recycle 
Data  loaded' 


Proceed 


\ GOTOPOOH  / 


Next  Sheet 


Verify  noun  71: 

Rl:  OOPSS  , 

P = AOT  detent  code  _ 
rO  COAS  calibration 

1 Front  left 

2 Front  center 

3 Front  right 

4 Rear  right 

5 Rear  center 

6 Rear  left 

7 Back-up  optical 

system  

initially  2 

SS  = code  for  celestial  body 
to  be  sighted 

00  Planet 

01  - 45  Star 

46  Sun 

47  Earth 

/"i 
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DRAWN 

^ P52 

PRGMR 

ANALST 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3510 

OOCMR 

APPR'D_(p»S^y;tftjfYY1 

REV  1 |SHEET42  OF  55  | 

From  Preceding  Sheet 


R52B 


Clear^ 

3AXISFLG 


R60  maneuver  specified  by  one  axis  only 


Bits  9-1  < STARCODEg.^g  15-7  AOT  detent  position  code 


Backup  optical  system  to  be  used  ? 


L = 0 or  7 
\ ? 


AOTAZ  - 1 +Li  azimuth  in  revs  @ 2 ^ 


1/8  rev. 


elevation  (=45°)  @ 2 ^ 


AZEL 
Sh.  44^ 


Next  Sheet 
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DRAWN  . 
PRGMR  . 
ANALST 


DOCUMENT  NO. 
LUMINAR'f  ID  FC-3510 


|APPR'DH?oa«*.v.rTv\r.ii*,>  la/t/vo  I REV  i 


ISHECT  43  OF  55 


Recycl 


From  Preceding  Sheet 


via  BANKCALL 


Terminate 


\ GOTOPOOH  / 


Load  noun  87: 

Rh  XXX  XX  deg.  azimuth 
(AZ) 

R2:  XXX  XX  deg.  elevation 
(ED 


^ 

A 7 

XTT 

X-l  1 

azimuth  in  revs  @ 2 
elevation  in  revs  @ 2 


AZEL  ^ 


\ 

f 

PL8< A 

PL9  < L 



f 

OANB 


'Compute 
'^optics  axis  for 
desired 
sighting 

.FC-3530 


Input:  PL8  = azimuth  in  revs  @ 2 _ 

PL9  = elevation  in  revs  @ 2 

Output:  SCAXIS„  = optics  axis  in  NB  coords 

@2^ 


^LOADTIMI 

Load 

present 

time 

FC-3150 


'y 

Next  Sheet 


Output:  MPACj^  = present  time  in  csec  @ 2 


28 


\ MIT  INSTRUMEfgATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDAI.CE  AND  NAVIGATION 

P52 

DRAWN 

ppr^MP 

/ ' 

ANALST 

LUMINARY  ID 

DOCUMENT  NO. 
FC-3510 

DOCMR 

APPR'D-US^A^fYAGa^ 

REV  1 

|S8Ea44  0F55 

From  Preceding  Sheet 


PLANET 
Provide  ref-' 
erence  direc- 
tion for  sight- 
ed  star 
FC-3500/ 


Input: 

Output: 


MPACjj  = sighting  time  in  csec  @ 2 
STARCODE  = star  code 


MPACy  = reference  vector  for 


28 


i 

j POINTVSM^^< — Unit  (REFSMMATj^  x MPAC^) 

i 

via  BANKCALL 

f 

sighted  star 


Convert  vector  to  SM 
coords  @2^ 


Input: 


SC  AXIS 


'V 


= axis  of  spacecraft  to  be 
aligned  in  NB  coords  @2^ 
POINTVSM^  = axis  to  align  with  in 
SM  coords  @ 2 ^ 

3AXISFLG  - clear  to  indicate  1-axis 
alignment 


MIT  IMSTPUMEf.TATI&N  LAB 

1 CAMBRIDGE,  MASS. 

APOLLO  GUIDAI.CE  AND  NAVIGATION 

^ P52 

DRAWN 

/a/r/i 

PRGMR 

DOCUMENT  NO. 

LUMINARY  ID  FC-3510 

ANALST 

DOCMR 

3/(.[7o 

REV  1 |SHEET45  0F55 

Next  Sheet 


MIT  INSTRUMEWATION  LAB 
CAAABRIDGE,  MASS. 


DRAWN 

PRGMR  

ANALST 

OOCMR 


MliM 


APPR'D'-D<sS...t;;fVvir«rL-.^  b/<i/7o 


APOLLO  GUlDArXE  AND  NAVIGATION 


^52 


LUMINARY  ID 


DOCUMENT  NO. 
FC-3510 


RFV  1 


“ kwrrr  dR af 


P52 


XDC 


V 


YDC 


V 


ZDC 


V 


desired  SM 
axes  relative 
to  present  SM 
coordinates 
@2l 


IGCd- 

= Euler  angles  of  corres- 
ponding transformation 
gyro  torquing  angles  ne- 
cessary to  achieve  desired 
orientation  in  revs  @ 2 ^ 


Display  noun  93 

(gyro  torquing  angles): 

Rl:  XX.  XXX  deg.  (OGCj^) 


\gOTOPOOh7^^=  XX.  XXX  deg.  (IGCj^) 


R3:  XX.  XXX  deg.  (MGCj^) 


Input  to  IMUPULSE 
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ANALST 

1 DOCUMENT  NO. 

LUMINARY  IDJ  FC-3510 

DOCMR 

APPR'D 

sKho 

REV  1 |sHEn48  0F55 

From  Preceding  Sheet 


via  BANKCALL 


! MIT  INSTRUMEWTATICN  L/vB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDA.ICE  AND  NAVIGATION 

P52 

DRAWN 

PRGMR 

DOCUMENT  NO. 
LUMINARY  ID  FC-3510 

ANALST 

DOCMR 

■■ 
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EXTERNAL  ROUTINES  CALLED 


Routine 

Flowchart 

Where  Called 

ALARM 

FC-3140 

Sh.  24 

AOTMARK 

FC-3530 

Sh.  25 

AXISGEN 

FC-3310 

Sh.  28 

CALCGA 

FC-3310 

Sh.  18 

CALCGTA 

FC-3310 

Sh.  19,  48 

CALCSMSC 

FC-3320 

Sh.  17,  34 

CDUTRIG 

FC-3320 

Sh.  17,  34 

COARSE 

FC-3500 

Sh.  11 

CURTAINS 

FC-3140 

Sh.  20,  25,  49 

IMPULSE 

FC-3220 

Sh.  20,  49 

IMUSTALL 

FC-3220 

Sh.  20,  49 

LALOTORV 

FC-3330 

Sh.  16 

LAT-LONG 

FC-3330 

Sh.  14 

LEMCONIC 

FC-3350 

Sh.  13 

LEMPREC 

FC-3350 

Sh.  30 

LOADTIME 

FC-3150 

Sh.  22,  44 

LSPOS 

FC-3345 

Sh.  30 

MAKECADR 

FC-3060 

Sh.  34 

NCOARSE 

FC-3500 

Sh.  11,  21 

OANB 

FC-3530 

Sh.  44 

OPTSTALL 

FC-3220 

Sh.  25 

PLANET 

FC-3500 

Sh.  26,  27,  45 

RP-TO-R 

FC-3340 

Sh.  5 

R02BOTH 

FC-3220 

Sh.  2 

R60LEM 

FC-3420 

Sh.  45 

SG NAG REE 

FC-3150 

Sh.  46 

GOPERF4R 

FC-3080 

Sh.  2 

GOFLASH 

FC-3080 

Sh.  3,  7,  15.  24. 
42.  44.  47. 
48 

GOPERFl 

FC-3080 

Sh.  7,  29.  22 

GODSPR 

FC-3080 

Sh.  19 

MIT  INSTRUMEiTTATION  LAB 

CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

p P52 

PRGMR 

LUMINARY  ID 

DOCUMEiVT  NO. 
FC-3510 

ANALST 

DOCMR 

REV  ISHEB  0F!3t>  | 

FLAGS 


Flag  Name 

Location 

CULTFLAG 

Bit  7 of 
FLAGWRD3 

DRIFTFLG 

Bit  15  of 
FLAGWRD2 

ERADFLAG 

Bit  13  of 
FLAGWRDl 

FREEFLAG 

Bit  3 of 
FLAGWRDO 

LUNAFLAG 

Bit  12  of 
FLAGWRD3 

PFRATFLG 

Bit  4 of 
FLAGWRD2 

REFSMFLG 

Bit  13  of 
FLAGWRD3 

VFLAG 

Bit  10  of 
FLAGWRD3 

3AXISFLG 

Bit  6 of 
FLAGWRD5 

Where 

Set 


Sh.  41 


Sh.  47 


Sh.  5 


Sh.  12,  21 


Sh.  34 


Where 

Cleared 


Sh.  41 


Sh.  19 


Sh.  5 


Sh.  47 


Where 

Tested 


Sh.  37 


Sh.  28 


Sh. 

12,  21, 

29 

Sh. 

19 

Sh. 

38 

Sh. 

43 

Sh.  38,  40 


MIT  l?SSTSaVZ\7ATIC3  b'iS 

c,'-.v.:ri?3E.  .v.ass. 


APOUO  GUIDANCE  AND  fJAVIGATI&'i 


P52 

LUMINARY  Id  I FC-3510 

Of55 


DISPLAYS 


Verb- Noun 

Type  of  Display 

Where  Called 

V04N06 

Flashing 

Sh.  2 

V06N34 

Flashing 

Sh.  3 

V06N22 

Flashing 

Sh.  7 

V50N25 

Flashing 

Sh.  7,  22, 

\ 

29 

V06N89 

Flashing 

Sh.  15 

V16N20 

Normal 

Sh.  19 

PROG  ALARM  light 

Sh.  20,  24, 
25,  49 

V05N09 

Flashing 

Sh.  24 

V01N70 

Flashing 

Sh.  42 

V06N87 

Flashing 

Sh.  44 

V06N05 

Flashing 

Sh.  47 

V06N93 

Flashing 

Sh.  48 

MIT  i:;STi.'L'.V.:\7ATIC'i  b\3 
CAMDRiOCI.  MASS. 

APCLLO  GUIDANCE  AAD  NA'/IGATiCN 

^ P52 

.^SG.Mn 

1 cccG  . AO. 

AMMST 

DCC’.’.G 

LUMINARY  ID  ^ FC-3510 

i.tV  1 1^;.  53  . ■ 55  i 

ERASABLE  LOCATIONS  USED 


ALPHAV^ 

OGCj, 

THETAD 

+2 

ALTj3 

OPTION2j^ 

TIME2j^ 

AOTCODE 

POINTVSMy 

TLANDj^ 

(=STARCODE) 

AZ 

RATT^ 

TSIGHTjj 

BESTI 

REFSMMATj^ 

VATTy 

BESTJ 

RLS  Y 

VEARTHy 

CDUX 

RRECTCSMy 

VMOON,. 

V 

CDUY 

CDUZ 

SAXy 

VRECTCSMy 

CEARTHjj 

SCAXISy 

VSUNy 

CMOONq 

SINCDUX 

XDCy 

YDCy 

COSCDUX 

SINCDUY 

V 

ZDCy 

COSCDUY 

COSCDUZ 

SINCDUZ 

STARADy 

L_  1_ 

XNB^ 

YNBy 

CSUNj^ 

(STARAD  +6)y 

ZNBy 

EL 

STARCODE 

XSMj^  = 

XSMy 

IGCj3 

(=  AOTCODE) 

YSMy 

ZSMy 

STARIND 

LANDALTq 
LANDLATj^ 
LANDLONG 
LATq 
LONG 


D 


D 


MGC 


D 


STARSAVl 


V 


STARSAV2 


V 


TALIGN 


D 


TDECl, 


‘D 

THETAD 


XSMD 


M 


XSMD. 

YSMD. 

ZSMD. 


CONSTANTS 


(CATLOG  -6)^ 
(CATLOG  -12D)^ 

(CATLOG  -2160)^ 
(CATLOG  -222D)^ 
ROEj3 
RSUBEj^ 

RSUBEMj^ 


PADLOADS 


AOTAZ 

AOTAZ 

+ 1 

AOTAZ 

+ 2 

AOTAZ 

+ 3 

AOTAZ 

44 

AOTAZ 

45 

AOTEL 

AOTEL  +1 

AOTEL  +2 

AOTEL  +3 

AOTEL  +4 
AOTEL  +5 


P57;  Lunar  Surface  Alignment  Program 


P57 

IMU  alignment  program  - to  be  done  on  lunar  surface 

Sh. 

2 

GVDETER 

Determine  direction  of  lunar  gravitation 

Sh. 

11 

P57OPT0 

Alignment  Mode  0 sequence  (get  reference  vectors: 

Y,  Z NB  axes) 

Sh. 

21 

P570PT1 

Alignment  Mode  1 sequence  (get  reference  vectors; 
gravity  direction,  Z NB  axis) 

Sh. 

23 

P570PT3 

Alignment  Mode  3 sequence  (get  reference  vectors; 
gravity  direction,  1 sighted  star  direction) 

Sh. 

24 

P570PT2 

Alignment  Mode  2 sequence  (get  reference  vectors: 

2 sighted  star  directions) 

Sh. 

25 

R59 

Star  sighting  routine 

Sh. 

25 

SURFLINE 

Compute  lunar  surface  alignment  angles  (using 

2 reference  vectors) 

Sh. 

34 

COATRIM 

Coarse  align  IMU 

Sh. 

37 

GYROTRIM 

Compute  angles  for  fine  alignment 

Sh. 

39 

JUSTTRIM 

Fine  align  IMU 

Sh. 

41 

SURFDISP 

Do  display  to  request  performance  of  fine  alignment 
(2nd  attempt)  option 

Sh. 

42 

REFMF 

Determine  LM  attitude  in  moon-fixed  coordinates 

Sh. 

46 

MFREF 

Convert  2 reference  vectors  from  moon-fixed 
to  reference  coordinates 

Sh. 

48 
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' IMUCHK 
Check 
that 
ISS  is 
operating 


Lunar  Surface  Alignment  Program  called 
via  DSKY  by  V37E57E. 


Note:  If  ISS  is  not  operating, 

IMUCHK  terminates  program. 


PPTION2  ^ 3 


P570PT 


Initialize  IMU  orientation  option. 


Let  astronaut  load  or  verify  IMU 
orientation  option. 


Recycle 


/GOPERF4RN 
Display 
I flashing 
\ V04N06  J 


Terminate 


Immediate  returnf 


/ Groicp  4.  1 
/Set  up  restarts 
Ho  schedule  last/ 
display  job  / 
(P570PT)  with/ 
priority  14  / 


lOTOPOOH 


proceed 


Display  Noun  6: 

Rl:  00001  Option  ID 

/specify  IMIA 
\orientation  / 

R2:  xxxxx  option  code 
(OPTION2) 


00001  Preferred 

00002  Nominal 

00003  REFSMMAT 

00004  Landing  site 


vENDOFJOI 


Next  Sheet 


in  CO 


Recycle 


Q TDISP  ^ 


C 


P57A 


) 


< 


DSPTEMl^  ^ TIG^ 

Load  time  of  alignment  for  display 
(in  csec  @ 2^®) 


P57AA 


) 


Let  astronaut  load  or  verify 
alignment  time. 


Display  Noun  34: 

Rl:  OOxxx.  hrsi  time  of 
flashing  /Terminate  R2:  OOOxx.  minV  alicmment 

V06N34  / 1 R3:  Oxx.xx  see]  (DSPT™ip) 


Display 


Proceed 


OTOPOOH 


'LOADTIMI 
Load 
present 
time 
FC-3150 


Result:  MPAC 


i7 


D 


TIME2_,  = present  time  in 

^ o28 

csec  (ff  2 


1 

r 

PL0j3*- 

MPACj^ 

1 

Next 

Sheet 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN  3-CT.vov\a 


PRGMR 
ANALST . 
DOCMR 
[APPR'D 


APOLLO  GUIDANCE  AND  NAVIGATION 


P57 


LUMINARY  ID 


REV  3 


DOCUMENT  NO. 

FC-3520 

[SHEET  4 Of  65 


r 


From  Preceding  Sheet 


c 


P57C 


TALIGN^  PLOj^ 

If  alignment  time  set  to  zero, 
set  TALIGNq  to  present  time. 


Is  alignment  time  past? 
'MPAC^>  DSPTEMi: 


P57D  ^ 


1 

TDEClj^ 

Input: 

OvEMPRECN 
Integrate 
state  vector 
vto  desired 
time 


Both  i 

r 

XSMD^  Unit( RATTy) 

1 

TDEClj^  = desired  time  in 

CSEC  @ 2^^ 

Output:  RATTy  = position  vector 

in  M/CSEC  @ 2" 
VATTy  = velocity  vector 

in  M/CSEC  @ 2'' 


29 


LSORIEN^  Input:  XSMD. 


Compute 
landing  site 
orientation 
given 
one  vector 
FC-3510 


V 


Output:  YSMD 
ZSMD 


first  vector  of 
desired  SM 
orientation 


corresponding 
Y,  Z vectors 


Next  Sheet 
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Hlffia 

1 DOCUMENT  NO. 

LUMINARY  ID  I FC-3520 

ANALST 

1 I 

7AfM 
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From  Preceding  Sheet 


^DSOPTN  ^ Let  astronaut  load  or  verify  alignment  mode 


I 


Recycle 


^GOFLASH^ 

Display 

flashing 

V05N06 


Terminate 


T 


GO  TO  POOH, 


Proceed 


Display  Noun  6; 

Rl:  00010  Option  ID  (OPTIONl): 

Specify  Alignment  Mode 
R2:^xxxxx  Option  Code  (OPTION2): 
"”00000  Any  time 

00001  REFSMMAT  + G 

00002  Two  bodies 
[_00003  One  body  + G 

R3;  xxxxx  Data  code  (OPTION3): 

Bits  set  or  cleared 
above 


Is  REFSMMATj^  valid? 


YES 


GETLMATT 


3H. 


LM  attitude  in  moon-fixed  coordinates? 
YES 


What  alignment  option  chosen? 
2,  3 


(These  options  inconsistent  with  flag  settings) 


Next  Sheet 
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ANALST 

OOCMR 
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REV  2 ISHEET  7 OF  65  1 

, GETLMATT 


/ REFMF  \ 

Determine 
LM  attitude 
in 

moon-fixed 

coords 


Output:  XNBjyj  =/  XNBy  \ = transfromation  matrix 


I YJNB^  J relating  SM  and  NB  ^ 
\ZNB^^/  coordinate  systems  @ 2 

YNBSAV  = YNB  in  moon-fixed  coords  @2^ 

V V 1 

ZNBSAV^  = ZNB^  in  moon-fixed  coords  @ 2 


BYLMATT 


Set 

INITALGN 


First  pass  through  P57 


/ Test  \ 

sPPTION2. 


Which  alignment  option  chosen? 
1,3 

▼ , 

GVDETER] 

xshTTI/ 


ATTCHK 


/ Group  4 

Set  up  restarts  ; 
to  schedule  next/ 
location  as  a / 
job  with  old  / 
priority  / 


Have  LM  attitude  in  moon-fixed  coordinates? 

•^TTFLAGS 

\ Set?  / Yes 

w 

No  P57OPT0 

21/ 


Next  Sheet 
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From  Preceding  Sheet 


Input:  /xNB^ 
YNB^ 

\znV 


CALCGA 
Compute 
driving  angles 
needed  to 
align  IMU 


ISM, 

YSM^ 

^ZSM. 


V' 


Relating  NB  and  present  sm 
coordinate  systems 


Giving  desired  SM  orientation 
relative  to  present  SM 
coordinates 


V/ 


Output: 


THETAD,  THETAD  +1,  THETAD 
= IMU  gimbal  angles  necessary 
to  achieve  desired  orientation 

in  revs  (§■2^ 


+2 


(STARAD  +12D). 


V 


GOUT. 


V 


Save  value  from  first  call  to  LUNG 


QPRET  ADR(GRAVEL  +22D) 


Set  up  return  from  LUNG  sequence 
to  GRAVEL  + 22D  (Sh.  14) 


LUNG 


Next  Sheet 
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DOCUMENT  NO. 

FC-3520 

Ianalst 

WUtk 

REV  2 ISHEH  1 ,3  OF  Bb 

Indicate 

"Recycle 


Set 

FREEFLAG 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN  

PRGMR  iWfk/lmJ 

ANALST 

IBM 

vrtui 

7^m 

APOLLO  GUIDANCE  AND  NAVIGATION 


P57 


DOCUMENT  NO. 


FC-3520 


SHEH 


From  Preceding  Sheet 


GROUP  4 
5et  up  restartsy 
to  schedule  / 
next  location/ 
as  a job  witlr 
old  priority 


GSAVy  STARSAVl^ 


Save  gravitational  direction  (in  NB  coords) 
computed  this  time 


FREEFLAG 
V set?  / 


Was  recycle  requested? 

Yes:  Recompute  gravitational  direction 


No:  Proceed  with 
P57 


ATTCHK 
Sh.  9 


GVDETEI 
V Sh.  1 1/ 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


DRAWN  r 
PRGMR 

ANALST 

DOCMR 


APOLLO  GUIDANCE  AND  NAVIGATION 

P57 

LUMINARY  ID  I 

DOCUMENT  NO. 

FC-3520 

SHECT  150F 


From  Preceding  Sheet 


GCTR  -20P  Initialize  cycle  counter 


1 PIPADT  2 csec  Set  A t between  PIPA  readings  @ 2 


/GCOMPZERv 
Initialize  N 
gyro 

comoensation/ 
\ FC-3S50  / 


I GROUP  4 
/ Set  up  restarts  , 
'to  schedule  next/ 
location  as  a / 
job  with  old  / 
priority  / 


PIPSRINE 
Read  and 
clear 
PIPAS 


Just  initialize  accelerometers  for  next  reading 


Next  Sheet 
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MIT  INSTRUMENTATION  LAB 
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APOUO  GUIDANCE  AND  NAVIGATION 


WilW/WMKFmi 


PRGMR 
ANALST 
OOCMR 


(5 


ADDGRA 


Input; 


1/PIPA 


Do 
PIPA 
compensatior 
FC-3230 


/DELVXv 
( DELVY ) = 

Vdelvz/ 


-W  read  from  PIPAS  in 
m/csec  nominally 

@ 0.  000585  X 2^"^ 
in  SM  coordinates 


1/PIPADT  = -itime  corresponding  to  SV_ 

,8 


in  csec  @ 2 


/ffiLVXA 
Output:  DELV^  = DELVYjj 
'DELVZ^ 


= AV  corrected 

for  scale  factor, 
bias  errors 
in  PIPAS  in 
m/csec 

now  actually  @ 0.  000585  X 2 


14 


GCTR  - GCTR  +1 


GACC^  - GACC^  + DELV^ 


Add  in  new  AV 

(m  m/csec  @ 0.  000585  ^ 2^^) 
in  SM  coordinates 


Time  to  end  cycling? 
No 


MPAC^  ^ Unit(GACC^) 
STAR^  ^ Unite GACCy) 
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YNB, 


ZNB, 


Unit  vector  in  reference  coords  @ 2 
0 


1 


Time  in  csec  ® 2 
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Next  Sheet 
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From  Preceding  Sheet 

/Convert  vectorX 
{to  planet -fixed  y 
\ coordinates  / 

\ FC-3340/ 


YNBSAV^  - 

MPAC^ 

Input:  PL0„  = Vector  in  reference  coordinates 

^ 28 
PL6j^  = Corresponding  time  in  csec  @ 2 

MPAC  / 0 --  indicates  moon -fixed 
coordinates  desired 

Output:  MPACy  = Given  vector  in  moon-fixed 
coordinates  (same  scaling) 

Save  resulting  unit  vector  @2^ 


PLO^ 

UNIT  (ZNB^  X REFSMMATj^) 

MPACj^ 

TSIGHTj^ 

PL6j3 

TSIGHTp 

Unit  vector  in  reference  coords  @ 2 
0 

Time  in  csec  @ 2^® 


1 


R-TO-RP 
/Convert  vector\ 
to  planet -fixed 
coordinates 
FC-3340 


Input:  PLO,,  = Vector  in  reference  coordinates 

^ 28 
PL6j^  = Corresponding  time  in  csec  @ 2 


indicate  moon-fixed 
coordinates  desired 


ZNBSAV^  ^ MPAC^ 


MPAC / 0 

Output:  MPACy.  = Given  vector  in  moon-fixed 
coordinates  (same  scaling) 

Save  resulting  unit  vector  @2^ 


Set 
ATTFLAG 


Have  LM  attitude  in  moon-fixed  coordinates 


■ Return  via/ 
\ QMAJ / 
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Convert  VECl,  VEC2  from  moon -fixed  to 
reference  coordinates 


Result:  MPAC^ 


TIME2p 


= Present  time 

^ o2 8 

m csec  @ 2 


Unit  vector  in  moon-fixed  coords  @2^ 
* 0 

2 8 

Time  in  csec  @ 2 


Input:  PLO,.  = Vector  in  moon-fixed  coords 

V 20 

PL6j^  = Corresponding  time  in  csec  @ 2 

MPAC  0 --  indicates  moon-fixed  coords 

Output:  MPACy  = Given  vector  in  reference 
coordinates  (same  scaling) 


Unit  vector  in  moon -fixed  coords  @2^ 

i 0 

2 8 

Time  in  csec  @ 2 
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From  Preceding  Sheet 


RP-TO-R 


Convert  vector 
from  planet-fixed 
coordinates 


FC-3340 


1 

VEC2^  < MPAC^ 

1 

Return  via/ 
QMAJ  / 


Input:  PLO^  = Vector  in  moon-fixed  coords 

PL6j^  = Corresponding  time  in  csec  @ 2 

MPAC  0 --  indicates  moon-fixed 
coordinates 

Output:  MPACy^  = Given  vector  in  reference 
coordinates  (same  scaling) 
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PROGRAM  CONSTANTS 


AGC 

TAG 

MLAiSiriNG 

ENGINEERING 

ANi)  AGC  VAIAIE 

AGC 

SCAldNG 

CATI-OG  - C 

Direclio))  oS  .star  1 
( a Aiidroniodac:'  (Alnlicral/,)) 
ill  ncfci’c-iico  co'.irdH 

/ P748CC891P\ 

■1. 02C0079J74  j 
^•1 . 483CC21C7(P 

2’ 

CATLOG  -13D 

Direclioii  oJ'  blur  2 

(A  Cell  (Diidida)) 
in  Rofercvicc  coordr; 

. 9342C10-100\ 

■L  1.739073]  42] 

M. 31] 52 19339/ 

2^ 

CATl.OG  -18D 

])irecti.oii  ol  .star  3 
{ I Catisiujiciae  (Navi)) 
in  RcTcrciu'.c  coords 

/i.4775C39450\ 

-1 . ] 1CC001340) 

Vl  8708254803/ 

9 

CATJ^OG  -24D 

Diroclion  of  filar  4 
(o  Ki'i(!aiji  (Achcrnar)) 
in  Reference  coords 

/I  . 49]7G782  70\ 

(l. 2204887125 J 
\-  f 8423473£)35/ 

. 

2^ 

Direction  of  slai-  C 
. ( a Ursne  Idinoris  (Polaris)) 
in  Rofcreiice  coords 

— ■ 

2^ 

CATLOG  -3 CD 

Direction  of  star  C 
( 0 Eridani  (Acarnar)) 
in  J’cferonco  coords 

/H.  5450]0740']\ 

H . 5314955400) 

\-. 0484410350 

2^ 

CATLOCJ  -42 D 

i-tircction  of  star  7 
( a Ceti  (Mcnkar))  , • 

in  Reference  cooi'dr;. 

/•:  . 7032235  1 09\ 

+. 7075840047) 

. 0092308085/ 

2^ 

CATDOG 

ilirection  cu"  fdar  P.  (-10_) 

( Cl  Persci  (jMirfak)) 
in  Rcfcrcnc('  coords 

A'.  410i;G30020\ 

1. 4988110001 ) 

\i-.  7032983371/ 

2^ 

CATJ.OG  -54D 

iiireciion  t>f  star  9 (-H„) 
(oO'ai’ri  ('I ’dokc.r, -■!•))  ^ 

in  Reference  coords 

/< . 35073  1503  8\ 

• .1  oro  c;0'’.'p  o j 

V! . 2831839493/ 

CATLOG  -COD 

Direction  of  stai-  101)  (=12„) 

(A  Orionis  (iligcD) 
in  Reference  coords 

A . 20il3  99589\ 

;i.  9090337941  ) 
14323'48r)]2/ 

cAtLOg  -CG]J 

liireclion  of  star  HD  (-13n) 

( o Aurigac  (Capelia)) 
in  Itcfcrencc  coords 

/■r.  137T7y55V5\ 

+.  0S1372]'0Gl) 

V)  . 71890852  07/ 

2^ 

CATLOG  -720 

Direction  of  star  12D  (-14_) 

( Cl  Carinac  (Canopus)) 
in  Reference  c.ooi-ds 

/-.  00M937230\ 

•1 . 00315032  80) 
7952489957/ 

2^ 

CATLOG  -7SD 

Direction  of  star  1 3D  (=15g) 
(oCani.s  Majoris  (Sirius))° 
in  RiCfcreiu'e  coords 

/-.  1820751  783\ 

! -i . 9404899809  ) 

V-.  2809271920/ 

2^ 

CATLOG  -S4D 

Diroction  of  star  14D  (=lGg) 

( a_  Canis  Minoris  (Procyon)) 
in  Reference  coords 

. 4118  5 8 9 5 2 lx 
•;  -t.  9005  1853  00  ) 

V . 0924226975/ 

2^ 

CATh,OG  -OOD 

Direction  of  star  13D  (-17  ) 

( y Velorurn  (Rsgor)) 
in  Reference  coords 

/-.  361250S532\ 

[-1.  5747270840) 

V.  7342932055/ 

2^ 

CATLOG  -CCD 

Direction  of  star  ICD  (-20p) 

( / Ur.sae  Majoris  (.Onocc.sl) 
in  Iteference  coords 

/- . 405794  V 94 1\ 

(r.  4774785033) 

V . 7450104351/ 

2^ 

CATLOG  -102D 

Dii'ection  of  star  1 7D  (=  21p) 
(ollydrac  (Alptiard)) 
in  Refere.'ce  coords 

774259135G\ 

■1 . 6152  504197  ) 

X-.  l‘!82802S30^ 

?} 

CATLOG  -100.1 

Direction  of  .st:ir  13D  (-22  ) 

( ol.conis  (Regulus)) 
in  Reference  coords 

/ - . S o 0 o n-  0 ■'  J 2 1 
-h.  46362  1306.9] 

G . 2098647835/ 

2^ 
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CATLOG 


CATLOG  -144)) 


Ca:tlOG  -IbOJJ 


CATI.OG  -162D 


CATLOG  -168D 


CATJ.OG 


CAlT.OG  -18075 


CATI.OG 


Direction  of  star  2oi)  (-27p) 
{■7  Ursac  IMajoris  (Alkaid); 

in  Reference  coords 

iOirection  of  stai'  24D  (^30p) 

( 0 Ccntaiiri  (Mentcent)) 
in  llefercnce  coords 
DTi  ectioii  of  staF’2b)T ('-B'l'  ) ' 
(ofBootis  (Arclurus)) 

in  r^cfei^nce  c^)ord.s  

’ Dfrectfon  of  siai'  (-32 j.) 

( o Coronac  Borealis 

(Alpliecca)) 
in  Reference  coords 


Direction  of  star  27D  (-33^) 
( oScorpii  (Artares)) 
in  Reference  coords 


Direction  of  star  2CD  .(-34,,) 
(a  Triioiguli  Aiistr.  (Atr’ial) 
in  flefcrence  coords 


Direction  of  star  29D  (-3t)_) 
( o.  Ophiuchi  (Rasalliagne)) 
in  Reference  coords 


/ - . 7 f i C ] 7 G 3 0 3 G' 
( 52)  709(1305 

y'' . 53  Xu8  7(193  0 
( •.  7)00044554 


iVA'’-' 057742'' 
'y-'.  3517490  009^ 
1 -.  b/  xO  <;>;•;  /Ucj 
i\-.  4441  19G39C/ 


( ■ • 1 j D X O / O 0 b \ 

33'' 9G925:.7) 
9334 25033 by. 
/-V’i  ) 2 43047  (37 
(-.  9(104934200  ) 
V;..  21731  1 0072/ 


CATLOG 


CATLOG  -198D 


CATLOC 


Direction  of  star  33D  (41, 
( /? Capricorni  (Dabiii)) 
in  Reference  coords 
Dircction'of  star  34 D ( = 42 
( C'l-’avonis  (Peacock)) 
in  Reference  coords 


Direction  of  star  35D  ( = 43 
( Q Cygni  (Denob)) 

iri_  Reference  cporcis 

I ) i r e c t i o iroTsTar'-S  G D ( ‘-"4 4 
( ePegasi  (Brif)) 
in  Reference  coord.s 


4537 196908 
8779508801 
15277PG153 


rh  5520];844o4\ 
(-. 7933187400) 
V.  2 5C 7 508 7 4 5/ 
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AGC  . 

TAG 

MJOANjisG 

ENC;iN.V';.i;iUNG 

AND  AGC- VAJADi: 

AGC 

SCAl-AKG 

CATJX)G  ~2:i2D 

■ I 

jJireclion  of  star  371) 

( n Piscis  Auslr.  ( I'  orinaJhrjj.t)) 
j.n  Rcicu'oicc  coords 

1 

/ 83  4207  M0G\ 
2::y2<i8)5]r. ) 

'v-.  49GG07G975/ 

2^ 

PAD  LOADS 


AGC 

TAG 


GSOP 

TAG 


MEANING 


ENGINEERING 
VALUE  AND  UNITS 


AGC  VALUE 
AND  UNITS 


AGC 

SCALING 


OCTAL 

VALUE 


AOTAZ, 


AOTAZ  +5 


Azimuth  angles 
corresponding 
to  6 ACDT  detent 
positions 


degrees 
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.-1 


MARK  TAKING  ROUTINES 


AOTMARK 

(R53)  SET  UP  DESIRED  SIGHTING  MARKS 

SH. 

2 

GETDAT 

GET  DATA  ON  DESIRED  MARK(S)  AND  SET  UP 
MARKING 

SH. 

5 

pAstit 

REQUEST  MARIC  VIA  DISPLAY 

SH. 

9 

A VESTA R 

AVERAGE  IN  MARIC  VECTOR 

SH. 

11 

MKRELEAS 

RELEASE  MARK  SYSTEM 

SH. 

14 

MARKRUPT 

(R57)  STORE  MARIC  DATA  - AT  TIME  OF  MARK 

SH. 

18 

XMKRUPT 

ENTERED  FROM  MARICRUPT  WHEN  X-AXIS  MARK 
TAKEN 

SH. 

21 

YMKRUPT 

ENTERED  FROM  MARKRUPT  WHEN  Y-AXIS  MARK 
TAKEN 

SH. 

21 

MA RETYPE 

DETERMINE  WHETHER  IN  FLIGHT  OR  ON  LUTCAR 
SURFACE 

SH. 

21 

MKREJ 

ENTERED  FROM  MARICRUPT  WHEN  MARK  REJECT 
BUTTON  PRESSED 

SH. 

25 

REMARK 

RETURN  TO  ALLOW  ANOTHER  MARK 

SH. 

27 

SURF  JOB 

ON-SURFACE  ENTRY  TO  REMARK 

SH. 

27 

CHANGEVB 

SET  UP  MARK  DISPLAY 

SH. 

28 

OANB 

COMPUTE  OPTICS  AXIS  FOR  DESIRED  SIGHTING 

SH. 

31 

MIT  IIISTRU.V.EOTATICM  L'i8 
CAMBRIDGE.  MASS. 

APOLLO  GUIDAMCE  AMD  KAVIGATIC.I 

Mark  Taking  Routines 

loRAWN  ^ , 

PRGMR  V 

a 'c,‘P 

LUMINARY  ID 

DOCUMEI.T  i;0.  i 
FC-3530  1 

AHMST 

APPR'D-f^3>..lrr.jVY\ 

REV  3 • ISHEET  1 C.-  45  | 

(AOTMARKl 


R53: 

PERFORM  THE  REQUIRED  OPTICAL 
SYSTEM  (AOT  OR  BACKUP  OPTICS) 
SIGHTING  MARKS  ON  CELESTIAL  BODIES 
FOR  USE  BY  IMU  ALIGNMENT  PROGRAMS 


IS  MARK  SYSTEM  AVAILABLE? 


MARKS  TAT 
\ = +0  ? / 


POODOO 

.FC-3140 


IS  EXTENDED  VERB 
SYSTEM  IN  USE  ? 


LIGHT  PROG 
ALARM  LIGHT: 
SET  ALARM  CODE 
(20105:  AOT  MARK 
SYSTEM  IN  USE); 
GO  TO  POO 


/^BITS  3, 2\ 
<DF  EXT  VBA  Cl 

00?  X 


IMKABORT) 


^ SET  BIT  2 
,OF  EXTVBACT 


EXTENDED 
VERB 
SYSTEM 
IN  USE 
FOR 

MA  RKING 


BUF2  ADDRESS  OF 

-Li  NORMAL  RETURN 

FROM  AOTMARK 
(STORED  DURING 
CALL  VIA 
BANKCALL) 


NEXT  SHEET 


BAILOUTl 

s^FC-3140^ 


LIGHT  PROG 
ALARM  LIGHT: 

SET  ALARM  CODE 
(31211:  ILLEGAL 
INTERRUPT  OF 
EXTENDED  VERB); 
CAUSE  SOFTWARE 
RESTART 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


ANALST 

oxMR 

APPR'0t>/. 


Mark  Taking  Routines 
Luminary  ID  I DOCUMI 


DOCUMENT  NO. 
FC-3530 

ISHEn  2 Of  4 


FROM  PRECEDING  SHEET 
(MKVAC) 


SEARCH  FOR  VACANT 
VAC  AREA 

, VAC  1 VACANT? 


VAC  1 USE 
^ +0? 


A - ADR(VAC1USE)-1 


VAC2USE 
^ +0  ? 


VAC  2 VACANT? 


A - ADR{VAC2USE)-1 


VACS USE 
+0  ? 


VAC  3 VACANT? 


A - ADR(VAC3USE)-1 


VAC  4 USE 
^ +0? 


VAC  4 VACANT? 


A «-  ADR(VAC4USE)-1 


VAC 5 USE 
+0? 


VAC  5 VACANT? 


A - ADR(VAC5USE)-1 


NO 

;; 

A,  L - BUF2 


LIGHT  PROG 
ALARM  LIGHT; 

STORE  , 

ALARM  I BA 

CODE  (31207: 

NO  VAC  AREA  VI, 
AVAILABLE 
FOR  MARKS); 
CAUSE  SOFTWARE 
RESTART 


BAILOUT  1 
s^FC-3140  . 


ADDRESS  OF  NORMAL  RETURN 
FROM  AOTMARK  (SET  DURING 
CALL  VIA  BANKCALL) 


NEXT 

SHEET 


MIT  INSTRUMENTATION  LAB 


CAMBRIDGE,  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


Mark  Taking  Routines 


Luminary  id 

DOCUMENT  NO. 

FC-3530 

REV  3 1 

ISHEH  3 0f45 

FROM  PRECEDING  SHEET 


SAVE  ADDRESS  OF 
BEGINNING  OF  VAC 
AREA  FOUND  (ALSO 
INDICATES  MARK 
SYSTEM  IN  USE) 


INDICATE  VAC 
AREA  IN  USE 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Mark  Taking  Routines 

DRAWN  ^ ^ 

TXm 

7m 

DOCUMENT  NO. 

Luminary  ID  FC-3530 

Ianalst 

DON'T  ACCEPT  MARKS  YET 


RECYCLEr 


DATA 

LOADED 


SET  BIT  12 
OF 

IMARKSTAT 


GOMARKF 

FLASH 

V01N71 


DISPLAY  (FOR  LOADING  OR 
VERIFICATION)  NOUN  71: 


TERMINATE 


Rl:  OOPSS 


(AOTCODE) 


PROCEED 


KILLAOT 
^SH.33 


P = AOT  POSITION  (DETENT) 
CODE 

”l  FRONT  LEFT 

2 FRONT  CENTER 

3 FRONT  RIGHT 

4 REAR  RIGHT 

5 REAR  CENTER 

6 REAR  LEFT 

7 BACKUP 
OPTICAL  SYSTEM 


SS 


CODE  FOR  CELESTIAL 
BODY  TO  BE  SIGHTED 


00 

PLANET 

01-45 

STAR 

46 

SUN 

47 

EARTH 

50 

MOON 

^ DODAT  ^ 


XY]^ARK  *“  AOTCODE gjfpg  Y 


SAVE  POSITION  CODE 


IS  POSITION  CODE  = 0 ? 


NEXT  SHEET 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN 


jf . 


prgmr 

ANALST 


docmr^^^^^^^^  n/tsAi 
APPR'DL^/:^ 


APOLLO  GUIDANCE  AND  NAVIGATION 


Mark  Taking  Routines 


Luminary  ID 


OOCUAtENT  NO. 

FC-3530 


REV 


[SHEET  5 O^F" 


FROM  PRECEDING  SHEET 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


DRAWN 


PRGMR  jJZ/hXU^ 
ANALST 


IdocmrC^^^^^^ 


V/g5^ 


APOLLO  GUIDANCE  AND  NAVIGATION 


Mark  Taking  Routines 


Luminary  ID 


DOCUMENT  NO. 

FC-3530 


REV 


I K ■ --■CT- 


3 


DISPLAY  (FOR 
LOADING  OR 
VERIFICATION) 
NOUN  87: 

Rl:  XXX.  XX  DEG 
(AZ) 

BACKUP  OPTICS 
LOS  AZIMUTH 
R2:  XXX.  XX  DEG 
(EL) 

BACKUP  OPTICS 
LOS  ELEVATION 


PL8  - AZ 

PL9  - EL 

A - 

+0 

STORE  AZIMUTH 
AND  ELEVATION 

ON  REVS  9 2"^ 


ROTATION  ANGLE  IS  ZERO 


1 


NEXT  SHEET 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Mark  Taking  Routines 

DRAWN 

'7/4,9 

lUl 

Luminal^  ID 

DOCUMENT  NO. 

FC-3530 

ANALST 

/ * 

DOCMR  \JkaJu 

7/25A» 

ll2?M 

REV  3 [SHEET  7 Of  45  i 

FROM  PRECEDING  SHEET 

_L 


^OASCOD^ 


PLIO  - A 

t 

STORE  ROTATION  ANGLE  IN  REVS  @ 2 


-1 


^OPTAXIS^ 


Oanb 


COMPUTE 
'OPTICS  AXIS 
vFOR  DESIRED, 
SIGHTING 


SH.  31 


PL12^^  COS(PL10x2 


INPUT:  PL8  = AZIMUTH  IN  REVS  @ 2 


-1 


PL9  = ELEVATION  IN  REVS  @ 2 


-1 


OUTPUT:  SCAXIS^  = OPTICS  AXIS  IN  NB 

COO  RDS  @ 2 ^ 


PL24 


V 


PL18^. 


= X -PLANE  PROJECTION 
OF  SCAXIS„  IN  NB 
^ 1 

COORDS  @ 2 

= Y -PLANE  PROJECTION 
SCAXIS,,  IN  NB  COORDS 

®2l 


)•  PL18^-SIN(PLl0x2' 


TAKE  ROTATION  INTO  ACCOUNT 
Y-MARK  PLANE 
VECTOR  IN  NB 
2 


•)  • PL24,. 

V 


PL18^-  SIN(PL10x2  ^).  PL18^  + COS(PL10x2’^)-  PL24^, 


(STARAD  +6)^-  (0,  0,0) 


COO  RDS  @ 2 
X-MARK  PLANE 

VECTOR  IN  NB 
COORDS  @2^ 

(2'^  FACTORS  FOR 
SCALING) 


INITIALIZE  AVERAGE  LOS  VECTOR 


NEXT  SHEET 


MIT  INSTRUMEMATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Mark  ' R'  uti-  es 

ftjsasi 

PRGMR 

V^7 

— IIBiM 

ANALST  " 

7 r 

"y/tsAf 

BiQlHEiSEI 

FROM  PRECEDING  SHEET 


GETMKS 


XYMARK  - +0 
MARKCNTR  - +0 


INITIALIZE 

RECORD  OF  X OR  Y MARKS 
MARK  PAIR  COUNTER 


'GETMKS  +3  1 


CLEAR 
BITS  14, 
13, 


MARKSTAT 


INITIALIZE  FLAGS: 

MARK  PAIR  INCOMPLETE, 
SURFACE  MARK  NOT  FINISHED 
NO  MARK  REJECT  YET 
MARKS  ACCEPTED 
Y MARK  NOT  MADE 
X MARK  NOT  MADE 


V54N71 


PASTIT  ) ALSO  ENTERED  FROM 
■ I CHANGEVB  (SH.  28) 


GOMARK4 

FLASH 


1 1 VERB- 

NOUN  } 1 

V ina / 

. * 

PROCEED  ♦ 

1 GETDAT 

KILLAOT 

*\SH.5  ^ 

k^^SH.33  J 

WHEN  \ 
MARKS  1 
TAKEN - 
SEE 

MARKRUPT 
SEQUENCE I 
SH.  18  / 


ASTRONAUT:  PLEASE  MARK 
/V54:  X OR  Y MARK\ 

1 [V53:  Y MARK  I 

\V52  : X MA  RK  / 


NOUN  71: 

Rl:  OOPSS  (AOTCODE) 
P=AOT  POSITION 
CODE 

SS=STAR  (OR  OTHER 
CELESTIAL 
BODY)  CODE 


NEXT  SHEET 


FROM  PRECEDING  SHEET 

mARKCHEjn  i 


ALSO  ENTERED  FROM 
DSPV6N79  (SH.  29) 


SET^^- 

BIT  12  OF 
MARKSTAr 


DON'T  ACCEPT  ANY  MORE  MARKS 


XYMARK  *-  MARKSTAT 


BITS  9-1 


SAVE  MARK  VAC 
AREA  ADDRESS 


MKDEX  - +0 


INITIALIZE  NUMBER  OF 
MARK  PAIRS  PROCESSED 


IS  LAST  SIGHTING  PAIR  COMPLETE? 


x^BITS  11,  10^ 
OF  MARKSTAT 
\^TH  SET^ 


OTHER  PAIR(S) 

COMPLETE  ? 

>0  test  +0 

r— MA  RKCNT  R > -V| 

(YESrC  (NO) 

DISCOUTS!  T'^ 

INCOMPLETE 

PAIR 


INPUT= 
ALARM 
CODE  111 
(MARK 
MISSING) 


M A RKCN  T Rr  MA  RKCN  T R - 1 

ALARM 

/ LIGHT  PROG  \ 

/ ALARM  LIGHT;  ] 

1 SET  ALARM  / 
\ CODE  / 

\,.FC-3140  ^ 

, r 

m 

1 GETMKS 1 

.SH.  9 


NEXT  SHEET 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


Mark  Taking  Routines 


DOCUMENT  NO. 

Luminary  ID  FC-3530 


FROM  PRECEDING  SHEET 


ALSO  ENTERED  FROM 
A VEIT  (SH.  13) 


A VESTA  Rj 

iZ_ 


MKDEX 


MKDEX  +1 


INCREMENT  NUMBER  OF 
MARK  PAIRS  PROCESSED 

/a  o3 


XI  - -(XYMARK  + 6 • MARKCNTR) 


ON  LUNAR  SURFACE  ? 


SET  UP  INDEX  VALUE 
TO  GET  MARK  DATA 
FROM  PROPER  (FOR 
THIS  MARK  PAIR)  PART 
OF  MARK  VAC  AREA 


CDUSPOTX 

CDUSPOTY 


CDUSPOTZ  - 3 - XI 


LOAD  IMU  GIMBAL  ANGLES 
AT  TIME  OF  Y MARK 

IN  REVS  @2'^ 


MPAC 


V 


PL12 


V 


Y MARK  PLANE  VECTOR  IN 
NB  COORDS  @ 2^ 


TRG  -NBSM 
CONVERT 
VECTOR  FROM 
NB  TO  SM 
COORDINATES 
.USING  ASSUMED 
IMU  ANGLES 
FC-3320 


INPUT:  MPAC  = VECTOR 

IN  NB  COORDS 

CDUSPOTX,  CDUSPOTY, 
CDUSPOTZ  = 

ASSUMED  IMU 
GIMBAL  ANGLES 


OUTPUT: 


IN  RE  VS  @ 2 
MPAC^  = GIVEN 

VECTOR  IN 
SM  COORDS 


PLO^  - MPAC^ 


T 


NEXT  SHEET 


SAVE  Y MARK  VECTOR 
IN  SM  COORDS  @2^ 


MIT  INSTRUMENTATION  lAB 
CAMBRIDGE.  MASS. 

APOUO  GUIDANCE  AND  NAVIGATION 

Mark  Taking  Routines 

RR? 

Luminary  ID 

DOCUMENT  NO. 

FC-3530 

Ianalst 

FKOM  PRECEDING  SHEET 


CDUSPOTX  - 4 - XI 
CDUSPOTY  - 0 - XI 
CDUSPOTZ  - 2 ^ XI 


2 ^ XI 


LOAD  IMU  GIMBAL  ANGLES 
AT  TIME  OF  X MARK 

IN  REVS  @2’^ 


MPAC^ 

- PL18^ 

/TRG*NBSM\ 

/ CONVERT  \ 
/ VECTOR  FROm\ 
NB  TO  SM 
COORDINATES 
\USING  ASSUMElV 
\lMU  ANGLES  / 
\ FC-3320  / 


X MARK  PLANE  VECTOR  IN  NB 
COORDS  @2^ 


INPUT:  MPAC, 


VECTOR  IN  NB 
COORDS 


CDUSPOTX,  CDUSPOTY.  CDUSPOTZ 
= ASSUMED  IMU  GIMBAL 

A ■ATA'IT  "m  fA  TTAT  n T71  r rO  AA  I 


OUTPUT:  MPAC 


ANGLES  IN  REVS  @ 2 
MPAC  = GIVEN  VECTOR  IN  SM 
^ COORDS  V 

HERE  = X MARK  VECTOR  A 

IN  SM  COORDINATES  @ 2 1 


PL24^  - UNIT(MPAC^  X PLO^) 


LOS  FOR  THIS  MARK  PAIR: 

UNIT  X "^^mPISM)*' 


NEXT  SHEET 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN 

PRGMR 

ANALST 

DKMR  7/?^c: 

APPR't)S-t^-^.:y.vJ)yt4eW-'  rh^ 


APOLLO  GUIDANCE  AND  NAVIGATION 

2.  Mark  Taking  Routines 

r 

— DOCUMENT  NO. 

— Luminary  ID  FC-3530 

b REV  3 ISHEET  i^0F4t> 


FROM  PRECEDING  SHEET 


A VEIT 


ALSO  ENTERED  FROM 
SURFSTAR  (SH.  11) 


AVERAGE  IN  LOS  VECTOR 
(FROM  NEW  MARK  PAIR) 

■nvT  on/r  n T-^o  o 1 


IN  SM  COORDS  @ 


WHERE: 

(STARAD  +6)  = LOS  VECTOR 

AVERAGE  SO 
FAR  IN  SM 

COORDS  @ 2^ 
PL24^  = NEW  LOS  VECTOR 

IN  SM  COORDS  @ 2^ 
MKDEX  = NUMBER  OF  MARK 
PAIRS  PROCESSED 

SO  FAR  @ 2^ 

2"^  FACTORS  ARE  FOR  SCALING 


'^RKCNTR 


MORE  MARK  PAIRS  TO  BE 
PROCESSED? 

>0  (YES)  1 


(ENDMARKS 


INHIBIT 

INTER- 

RUPTS 


MKRELEAS 
(.WAITLIST  , 
\ TASK  / 
/ IN  \ 
' .05  SEC 

SH.  14 


MARKCNTR  - MARKCNTR - 1 


A VESTA R 


.SH.  11 


TERMINATE  DISPLAY 
INTERFACE  FOR  MARKING 


ENDMARK 

*SFC-308Q^ 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


Iappr'^-^  ■ 


APOLLO  GUIDANCE  AND  NAVIGATION 


Mark  Taking  Routines 


DOCUMENT  NO. 

Luminary  ID  FC-3530 


REV  3 


FREE  VAC 
AREA  USED 
FOR  MARKS 


MARK  SYSTEM 
AVAILABLE 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN  ^ 
PRGMR 
ANALST 


DOCMR 


APPR'b~gg--  V 


7/z54^ 


RE 


APOLLO  GUIDANCE  AND  NAVIGATION 


Mark  Taking  Routines 

I DOCUMENT  NO. 


Luminary  ID 
EV  3 


FC-3530 

ISHEET  14  OF  45 


[SURFSTAR  , 


ENTERED  FROM  A VESTA R (SH.  11)  IF  ON  LUNAR 
SURFACE 


CDUSPOTX  - 4 - XI 
CDUSPOTY  - 0 - XI 
CDUSPOTZ  - 2 ^ XI 


LOAD  IMU  GIMBAL  ANGLES  AT  TIME  OF  MARK 
IN  REVS  @2'^ 


MPAC  - 1 - XI 


LOAD  CURSOR  ANGLE  IN  REVS  @ 2 


/CDULOGICN 
/ CONVERT  \ 
'ANGLE  FROM 
2'S  TO  I'S 
^COMPLEMENT 
\ FC-3150  / 


INPUT:  MPAC  = 2'S  COMPLEMENT  ANGLE 
IN  REVS  @ 2'^ 


OUTPUT;  MPACj^  = I'S  COMPLEMENT  ANGLE 
IN  REVS  @ 2° 


PL24j^  - MPACj^  CURSOR  ANGLE  IN  REVS  @ 2 


MPACjj  = 0 


CURSOR  ANGLE  ZERO? 
\ YES 


YZCHK 


SPIRAL  ANGLE  ALSO  ZERO? 


\ YES 
3 - X1  = T>— 


YSZERO 


MPACjq  - PL2  4q 


MPAC^  - SCAXIS^ 


OPTICS  AXIS  IN 
NB  COORDS  @ 2^ 


NEXT  SHEET 


JUS TO A 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN 
PRGMR 
ANALST 
DOCMR 
APPR'IA-^^ 


APOLLO  GUIDANCE  AND  NAVIGATION 


Mark  Taking  Routines 


DOCUMENT  NO. 

Luminary  ID  FC-3530 


SHEHIS  OF  45 


FROM  PRECEDING  SHEET 


NEXT  SHEET 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN 
PRGMR  _i. 
ANALST 


DOCMR  ■ "7^1 


APOLLO  GUIDANCE  AND  NAVIGATION 


Mark  Taking  Routines 


Luminary  id 


DOCUMENT  NO. 

FC-3530 


[SHEET  16  oTiS 


FROM  PRECEDING  SHEET 


i 


MPAC„  - 2^  • [COS(PL26j^)  • SCAXIS,^  + SIN  (PL26^)  • PLOJ 


'V 


V 


^JUSTOA  ^ 


D' 


r 

MPAC^  - UNIT(MPAC^) 

STAR  LOS  VECTOR  IN  NB  COORDS 

_ ol 


^TRG*NBSM^ 
CONVERT 
'VECTCR  FROM' 
NB  TO  SM 
COORDINATES 
JSING  ASSUMED/ 
IMU  ANGLES  > 
FC-3320 


INPUT:  MPAC„  = VECTOR  IN  NB 
COORDINATES 
CDUSPOTX,  CDUSPOTY, 
CDUSPOTZ 

= ASSUMED  IMU  GIMBAL 
ANGLES  IN  REVS  @ 

OUTPUT:  MPAC 


-1 


'V 


GIVEN  VECTOR 
IN  SM  COORDS 


PL24 


V 


MPAC 


V 


LOS  VECTOR  IN  SM  COORDS 


= COS  (SEP  L)uq 

+ (COS  (CURSOR  ^)Yjyjp-SIN  (CURSOR  Z.)Xj^p)xuQ 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Mark  Taking  Routines 

DRAWN 

PRGMR 

7aT 

Luminary  ID 

DOCUMENT  NO. 

FC-3530 

ANALST 

DaMR(<^.  '~Pn. 

1: 

APPR'Ot-^  .'i/j  . 

REV  3 ISHEH  17  Of  45  I 

c 


4030 


) 


ARUPT  - A 

LRUPT  - L 

INTERRUPT  LEAD-IN  ENTERED 
VIA  HARDWARE  WHEN  MARK  OR 
MARK  REJECT  BUTTON  PRESSED 
OR  WHEN  RATE-OF -DESCENT 
SWITCH  IS  OFFSET 

SAVE  CENTRAL  REGISTERS  FOR 
INTERRUPTED  JOB 


A - BBANK 


^ , 

fMARKRUPT  J 


BANKRUPT 


I 


ITEMP3 

ITEMP4 

ITEMP5 

ITEMPl 


D 


CDUY 

CDUZ 

CDUX 

TIME2 


ROUTINE  R57 


D 


READ 

PRESENT  IMU  GIMBAL 
ANGLES  IN  REVS  @ 2'^ 
AND  TIME  IN  CSEC  @ 5 


28 


QRUPT  Q 

SAVE  Q ALSO  FOR 

INTERRUPTED  JOB 


IS  BIT 
6 OR  7 
OF 
CHANNEL/ 
16  SET? 


NO 


ia  POST  jump]  market 


PROCESS  R-O-D  BITS  AND 
RETURN  TO  INTERRUPTED  JOB 


BIT  3 OF 
CHANNEL 
16  SET? 


NO 


YES 


NEXT  SHEET 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Mark  Taking  Routines 

DRAWN 

Luminary  ID 

DOCUMENT  NO. 

FC-3530 

HH 

FROM  PRECEDING  SHEET 


ALARM 


LIGHT  PROG 
ALARM  LIGHT; 
SET  ALARM 
CODE 

L FC-3140 


INPUT: 

ALARM  CODE  113 

(NO  IN  BITS  IN  CHANNEL  16) 


\resume7  return  control  to  interrupted  job 
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APOLLO  GUIDANCE  AND  NAVIGATION 

Mark  Taking  Routines 

DRAWN  alS 

WSk 

Luminary  ID 

DOCUMENT  NO. 

FC-3530 

ANALST 

DOCMR  Tt-I . 

^2^ 

REV  3 |SHEET  20  0f45 
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Mark  Taking  Routines 

DRAWN  ^ 

7/^9 

PRGMR 

iM 

DOCUMENT  NO. 

Luminary  ID  FC-3530 

ANALST 

DOCMR  Ui 

APPR'D(-^.:?4.vjfe^ 

REV  3 [sheet  21  OF  4.5 

FROM  PRECEDING  SHEET 


NO  /BIT  14  \ 

— OF  MARKSTA1 

\ SET?  / 


PREVIOUS  MARK  PAIR  COMPLETE  ? 


HA  VE  5 MARK  PAIRS  ALREADY  ? 


lARKCNTRa  ^ 


YES:  DON'T  ALLOW  ANOTHER 


5MKALARM| 

V.  SH.  30  J 


MARKCNTR  - MARKCNTR+1 


CLEAR 
BITS  14, 11, 10 
OF  MARKSTAT 


INITIALIZE 
FOR  NEXT 
PAIR 


VERIFYMK 


HAS  THIS  MARK  ALREADY  BEEN  MADE  ? 

(X- OR  Y-  MARK  INDICATED  BY  BIT  10  OR  11, 
IARKSTAtN.  RESPECTIVELY) 
c XYMARK 
\^0?/ 


/ ALARM  \ 

' LIGHT  PROG  1 
ALARM  LIGHT: 
SET  ALARM 
CODE  i 
\ FC-3140  7 


INPUT:  ALARM  CODE 
114 

/ MARK  MADE  NOT 
( DESIRED  AT  THIS 
V TIME 


NEXT  SHEET 


I RESUME  ; 
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DOCUMENT  NO. 

Luminary  ID  FC-3530 


FROM  PRECEDING  SHEET 


NEXT  SHEET 
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RSS 

Mark  Taking  Routines 

Ianalst 

-r— 

mm 
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FROM  PRECEDING  SHEET 


MARK  MADE 
X MARK 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

DRAWN  nQ 

7/^ 

Mark  Taking  Routines 

PRGMR 

Luminary  ID 

DOCUMENT  NO. 

FC-3530 

ANALST 

DXMR 

7/2^69 

APPR’D 

REV  3 ISHEET54  Of^c^ 

MKREJ 


ENTERED  WHEN  MARK 
REJECT  BUTTON  PRESSED 


REMARK]  THIS  ENTRY  USED  ONLY  IN  FLIGHT 


CHANGEVB 
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Mark  Taking  Routines 


DOCUMENT  NO. 

Luminary  ID  FC-3530 


DISPLAY  NOUN  79: 
Rl:  XXX.  XX  DEG 
(CURSOR) 

R2:  XXX.  XX  DEG 
(SPIRAL) 
R3:  XXXXX. 

AOT  DETENT 
POSITION  CODE 
(POSCODE) 


STORE  CURSOR,  SPIRAL  ANGLES 
(IN  REVS  @ 2"^)  IN  APPROPRIATE 
PART  OF  MARK  VAC  AREA 


TIME  TO  TERMINATE  MARKING? 


RETURN  TO 
PROCESS 
MARKS  TAKEN 


MARKCNTR-tr-MARKCNTR  +l|  INCREMENT  NUMBER  OF  MARKS 


IGETMKS  +3I 


RECYCLE  TO 
MARK  AGAIN 
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InRAWN 

DOCUMENT  NO. 

Luminary  ID  FC-3530 

MM 

REV  a ISHEET29  0F45 

^SMKALARM^ 


ALARM 


LIGHT  PROG> 
/ALARM  LIGHT;\ 
SET  ALARM 
CODE 
FC-3140 


INPUT:  ALARM  CODE  107 
/MORE  THAN  5 MARKS  (ON  LUNAR\ 
( SURFACES)  OR  MARK  PAIRS  (IN  ) 
\ FLIGHT)  / 


NOT  ON  SURFACE 


'MARKTYPE' 
DETERMINE 
WHETHER  ON 
LUNAR 
SURFACE 
SH.  21 


ON  LUNAR  SURFACE 


\resume7 


i DSPV6N79  I 
.SH.2^ 


NEXT  SHEET 


COMPUTE  OPTICS  AXIS  FOR  DESIRED 
SIGHTING  (SCAXIS^  ® 2^) 


ELEVATION  ANGLE  IN  REVS  @2"^ 

INPUT:  MPAC  = 2'S  COMPLEMENT  ANGLE 
IN  REVS  @2"^ 

OUTPUT:  MPACjj  = I'S  COMPLEMENT 

ANGLE  IN  REVS  @ 2° 

COS  (ELEVATIONS.)  ® 2^ 

FIRST  COMPONENT:  SIN  (ELEVATION  S. ) @ 2^ 


I 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN 
PRGMR 
ANALST 
DXMR 
APPR'D 


it 
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Luminary  id 


DOCUMENT  NO. 

FC-3530 


[sheet  31  OF  45 


REV 


FROM  PRECEDING  SHEET 


MPAC  - PL8  AZIMUTH  ANGLE  IN  REVS  @2'^ 

/CDUL 
/ CONV 
/ ANGLE 
\ 2'S  T( 

VOMPL] 
\ FC-: 

r 

OGIc\  INPUT:  MPAC  = 2'S  COMPLEMENT 

\ 1 
FROM  \ ANGLE  IN  REVS  @ 2"^ 

EMENT/  OUTPUT:  MPACj^  = I'S  COMPLEMENT 

3150  / ANGLE  IN  REVS  @ 2° 

1 

PLiSy-  [+0,  cos(mpaCq),  - sin(mpaCj^)]  y- plane  projection 

OF  OPTICS  AXIS 

[0,  COS  (AZIMUTH  L).  - SIN(AZIMUTH  / )] 

@ 2^ 
r * 

(SCAXIS  +2)j^-  COS(MPACj^)  • SIN(MPACj^)  -2^  SECOND  COMPONENT: 

1 

COS(AZIMUTH  L)SIN(AZIMUTH  l) 
®2^  2^  FACTOR  IS  FOR  SCALING 

(SCAXIS  COS(MPACjj)  ' PLOj^  • 2^  THIRD  COMPONENT; 

. J 

COS  AZIMUTH  /.)SIN(ELEVATIONZ.) 
@2^.  2^  FACTOR  IS  FOR  SCALING 

PL24^-  UNIT(PLI8^  x SCAXIS^)  X-PLANE  PROJECTION 

1 

\retup 

\ GC 

OF  OPTICS  AXIS  @ 2 

w via/ 

TR  / 
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Ianalst 

APPR*&^:^  - ??7 . 

REV  3 |SHEET32  of45 

KILLAOT^ 


EXTVBACT<— +0 

\gO  to  PCX3h/ 


TERMINATE  PROGRAM 


ALLOW  EXTENDED  VERB  ACTIVITY 


TERMINATE  MAJOR  MODE 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLU)  GUIDANCE  AND  NAVIGATION 

7//<> 

Mark  Taking  Routines 

TT/Zi 

DOCUMENT  NO. 

Luminary  ID  FC-3530 

Ianalst 

REV  3 |SHEn33  Of  45 

1 

SUBROUTINES  CALLED  WHICH  ARE 
FLOWED  ON  OTHER  FLOW  CHARTS 


SUBROUTINE 

NAME 

FLOW 

CHART 

DESCRIPTION 

WHERE 

CALLED 

ALARM 

FC-3140 

LIGHT  PROG  ALARM  LIGHT;  SET 
ALARM  CODE 

SH.10,19 
20,  22, 25, 
30 

BAILOUT  1 

FC-3140 

LIGHT  PROG  ALARM  LIGHT;  SET 
ALARM  CODE;  CAUSE  SOFTWARE 
RESTART 

SH.  2,  3 

CDULOGIC 

FC-3150 

CONVERT  ANGLE  FROM  2'S  TO  I'S 
COMPLEMENT 

SH.15,16 
31, 32 

DESCBITS 

FC-3940 

PROCESS  RATE-OF-DESCENT 

SWITCH  CHANGE 

SH.18 

ENDMARK 

FC-3080 

TERMINATE  DISPLAY  INTERFACE 

FOR  MARKING 

SH.  13 

GOODEND 

FC-3220 

GOOD  END  OF  STALL  ROUTINE 

SH.  14 

POODOO 

FC-3140 

LIGHT  PROG  ALARM  LIGHT;  SET 
ALARM  CODE;  GO  TO  POO 

SH.  2 

TRG*NBSM 

FC-3320 

CONVERT  VECTOR  FROM  NB  TO 

SM  COORDINATES  USING  ASSUMED 

IMU  GIMBAL  ANGLES 

SH. 11,12 
17 
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Luminary  ID  FC-3530 

Ianalst 

REV  3 [SHEET  3 4 0F45 

FLAGS 


BIT  3 


BIT  2 


BIT  14 


BIT  13 


BIT  12 


BIT  11 


BIT  10 


BIT  8 


MEANING 
WHEN  SET 

1 

MEANING 
WHEN  CLEAR 

EXTENDED  VERB 
SYSTEM  IN  USE 
FOR  EXTENDED 
VERB 

EXTENDED  VERB 
SYSTEM  NOT  IN 
USE  FOR  EXTEND 
ED  VERB 

EXTENDED  VERB 
SYSTEM  IN  USE 
FOR  MARKING 

EXTENDED  VERB 
SYSTEM  NOT  IN 
USE  FOR  MARK- 
ING 

IF  IN  FLIGHT: 
MARK  PAIR 
COMPLETE 

IN  ON  LUNAR 
SURFACE: 

MARKING  TO 

BE  TERMI- 
NATED 

IF  IN  FLIGHT: 
MARK  PAIR 
INCOMPLETE 

IF  ON  LUNAR 
SURFACE; 

MARKING  NOT 
TO  BE  TERMI- 
NATED 

MARK  REJECTED 

MARK  MADE 

MARKS  NOT 
ACCEPTED 

MARKS  ACCEPT- 
ED 

Y MARK  MADE 

Y MARK  NOT 
MADE 

X MARK  MADE 

X MARK  NOT 
MADE 

LM  ON  LUNAR 
SURFACE 

LM  NOT  ON 

LUNAR  SURFACE 

WHERE 

CLEARED 

WHERE 

TESTED 

SH.  33 

SH.  2 

SH.  33 

1 

1 

SH.  2 

SH.  9,  22 

26 

SH.  22 

29 

SH.  9,  24 

SH.  26 

SH.  9 

SH.  19 

SH.  9,  22 

26 

SH.  10 

22,  24 

25 

SH.  9,  22 

26 

SH.  10 

22,  24 

25 
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PRGMR 

Luminary  ID 

DOCUMENT  NO. 

FC-3530 

ANALST  ” 

APPR'rf-^.  PZ/.vL^^^ 

REV  3 |SHECT36  0f45 

DISPLAYS 


VERB- 

NOUN 


TYPE  OF 
DISPLAY 

DESCRIPTION  OF  EACH  REGISTER 

WHERE 

EXECUTED 

ALARM 

PROG  ALARM  LIGHT  ON;  REGISTERS  NOT 
AFFECTED 

SH.  2,  3,  10, 
19,  20, 22, 
25,30 

FLASHING 

Rl;  OOPSS  (AOT  CODE) 

P = AOT  POSITION  CODE 

SS  = STAR  CODE 

SH.5 

FLASHING 

Rl;  XXX.  XX  DEG  BACKUP  OPTICS  LOS 

AZIMUTH  (AZ) 

R2:  XXX.  XX  DEG  BACKUP  OPTICS  LOS 

ELEVATION  (EL) 

SH.  7 

FLASHING 
PLEASE 
MARK  (X 
OR  Y) 

Rl:  ASIN  V01N71  ABOVE 

SH.  9 

FLASHING 
PLEASE 
MARK  (Y) 

Rl:  AS  IN  V01N71  ABOVE 

SH.  9 

FLASHING 
PLEASE 
MARK  (X) 

Rl:  AS  IN  V01N71  ABOVE 

SH.  9 

FLASHING 

Rl:  XXX.  XX  DEG  CURSOR 

R2:  XXX.  XX  DEG  SPIRAL 

R3:  XXXXX.  POSITION  CODE 

(POSCODE) 

SH.  29 
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Luminary  ID  fC-3530 
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ERASABLE  LOCATIONS  USED 


GSOPI 

ENGINEERING 

lYMBOL 

MEANING 

1 UNITS 

AGC 

AGC 

UNITS 

SCALING 

ARUPT 


BANKRUP' 


BBANK 


ACCUMULATOR  REGISTER 
USED  BY  CENTRAL 
PROCESSOR 


AOTCODE  BITS  10-7:  AOT  POSITION 

(DETENT)  CODE 
BITS  6-1:  CODE  FOR 
CELESTIAL 
BODY  TO  BE 
SIGHTED 


TEMPORARY  STORAGE 
FOR  A (ABOVE)  DURING 
INTERRUPT 


AZIMUTH  FOR  BACKUP  DEGREES 

OPTICS  LOS 


TEMPORARY  STORAGE  FOR 
BBANK  (BELOW)  DURING 
INTERRUPT 


CENTRAL  PROCESSOR  REG- 
ISTER USED  FOR  ADDRESS 
INFORMATION 


ADDRESS  OF  NORMAL  RE- 
TURN VIA  SWRETURN  (SET 
DURING  CALL  VIA  BANK- 
CALL) 


SNAPSHOT  OF  OUTER  IMU  DEGREES 
GIMBAL  ANGLE 


I 

CDUSPOTYj  SNAPSHOT  OF  INNER  IMU  DEGREES 

GIMBAL  ANGLE 


CDUSPOTz!  SNAPSHOT  OF  MIDDLE  IMU  DEGREES 

I GIMBAL  ANGLE 


CDUX  OUTER  IMU  GIMBAL  ANGLE  DEGREES 


INNER  IMU  GIMBAL  ANGLE  DEGREES 


CDUZ  MIDDLE  IMU  GIMBAL  ANGLE  DEGREES 


CURSOR  AOT  CURSOR  ANGLE  DEGREES 


REVS 


REVS 


REVS 


REVS 


REVS 


REVS 


REVS 


REVS 


MIT  INSTRUMEMTATION  LAB 
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, DOCUMENT  NO. 

Luminai^  lU  FC-3530 


SHEET  38  0F45 


ERASABLE  LOCATIONS  USED  (CONT. ) 


ITEMP3 


ITEMP4 


ITEMP5 


LRUPT 


MARKCNT 


MARKSTATl 


MEANING  UNITS 


ELEVATION  FOR  BACKUP  DEGREES 
OPTICS  LOS 


SNAPSHOT  OF  TIME  (AT  SECONDS 
MARK) 


SNAPSHOT  OF  INNER  IMU  DEGREES 

GIMBAL  ANGLE  (AT  MARK 

TIME) 


SNAPSHOT  OF  MIDDLE 
IMU  GIMBAL  ANGLE  (AT 
MARK  TIME) 


SNAPSHOT  OF  OUTER  IMU 
GIMBAL  ANGLE  (AT  MARK 
TIME)  


LOW-ORDER  ACCUMULA- 
TOR USED  BY  CENTRAL 
PROCESSOR 


TEMPORARY  STORAGE 
FOR  L (ABOVE)  DURING 
INTERRUPT 


M-1,  WHERE  M=NUMBER 
OF  MARKS  (IF  ON  LUNAR 
SURFACE)  OR  MARK  PAIRS 
(IF  IN  FLIGHT) 


BITS  14-10;  USED  AS  FLAGS 
(SEE  SH.  35); 

BITS  9-1  : ADDRESS  OF 

BEGINNING  OF 
MARK  VAC  AREA 


SEVERAL  USES: 

1)  NUMBER  OF  MARKS  (ON 
SURFACE)  OR  MARK  PAIRS 
(IN  FLIGHT)  PROCESSED 
(DATA  AVERAGED  IN) 

2)  (ON  LUNAR  SURFACE) 
POINTER  TO  PROPER 
PART  OF  MARK  VAC  AREA 
FOR  PARTICULAR  MARK 

3)  (IN  FLIGHT)  INDEX  TO  NEW 
VERB,  DEPENDING  ON 
WHICH  MARK  OF  A PAIR 
HAS  BEEN  MADE 


DEGREES 


DEGREES 


AGC 

UNITS 

AGC 

SCALING 

REVS 

2“^ 

CSEC 

228 

REVS 

2"'' 

REVS 

2'^ 

REVS 

2‘^ 
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Luminary  ID  FC-3530 


3 (SHEET  39  0f45 


ERASABLE  LOCATIONS  USED  (CONT. ) 


SPIRAL 


(STARAD+6)^: 


STARSAV2, 


TSIGHT 


D I 


VAC2USE 


VACS  USE 


VAC4USE 


VACS  USE 


CENTRAL  PROCESSOR  REG- 
ISTER USED  FOR  RETURNS 
FROM  SUBROUTINES 


TEMPORARY  STORAGE  FOR  Q 
(ABOVE)  DURING  INTERRUPT 


POINTER  TO  PROPER  PART 
OF  MARK  VAC  AREA  FOR 
PARTICULAR  MARK 


POINTER  TO  BEGINNING  OF 
MARK  VAC  AREA 


OPTICS  AXIS  FOR  DESIRED 
SIGHTING- IN  NB  COORDINATES 


AOT  SPIRAL  ANGLE 


DEGREES 


LOS  VECTOR  AVERAGE 
(FROM  MARKS  PROCESSED 
SO  FAR)  IN  SM  COORDINATES 


LOS  VECTOR  AVERAGE 
(FROM  MARKS  PROCESSED 
SO  FAR)  IN  SM  COORDINATES 


PRESENT  TIME 


TIME  OF  OPTICAL 
SIGHTING 


LOCATION  BEFORE  START 
OF  VAC  AREA  #1 


LOCATION  BEFORE  START 
OF  VAC  AREA  #2 


LOCATION  BEFORE  START 
OF  VAC  AREA  #3 


LOCATION  BEFORE  START 
OF  VAC  AREA  #4 


LOCATION  BEFORE  START 
OF  VAC  AREA  #5 


SECONDS 


SECONDS 
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ENGINEERING 


PROGRAM  CONSTANTS 


AGC 

TAG 

MEANING 

ENGINEERING 

AND  AGC  VALUE 

AGC 

SCALING 

CATLOG  -6 

Direction  of  star  1 
( a Andromedae  (Alpheratz)) 
in  Reference  coords 

/+.  8748658918\ 

+. 0260879174) 

V.  4836621670/ 

2^ 

CATLOG  -12D 

Direction  of  star  2 
( /?  Ceti  (Diphda)) 
in  Reference  coords 

2^ 

CATLOG  -18D 

Direction  of  star  3 
( )'  Cassiopeiae  (Navi)) 
in  Reference  coords 

2^ 

CATLOG  -24D 

Direction  of  star  4 
(Q  Eridani  (Achernar)) 
in  Reference  coords 

r\-.  4917678276\ 

' K 2204887125  ) 

\-. 8423473935/ 

2^ 

CATLOG  -SOD 

Direction  of  star  5 
( o Ursae  Minoris  (Polaris)) 
in  Reference  coords 

lillH 

2^ 

CATLOG  -36D 

Direction  of  star  6 
( 9 Eridani  (Acamar)) 
in  Reference  coords 

/+. 5450107404\ 

+ . 5314955466) 

\-. 6484410356 

2^ 

CATLOG  -42  D 

Direction  of  Star  7 
( a Ceti  (Menltar)) 
in  Reference  coords 

2^ 

CATLOG  -48D 

Direction  of  star  8 (=10„) 

( a Persei  (Mirfak)) 
in  Reference  coords 

P-.  4105636020\ 

+.  4988110001  ) 

\+.  7632988371/ 

2^ 

CATLOG  -54D 

Direction  of  star  9 (=11„) 

( aTauri  (Aldebaran)) 
in  Reference  coords 

2^ 

CATLOG  -60D 

Direction  of  star  lOD  (=13o) 

(/?  Orionis  (Rigel)) 
in  Reference  coords 

/+. 2011399589\ 

+.  9690337941  ) 
1432348512/ 

2^ 

CATLOG  -66D 

Direction  of  star  IID  (=13g) 

( Q Aurigae  (Capella)) 
in  Reference  coords 

2^ 

CATLOG  -72D 

Direction  of  star  12D  (=14g) 

( a Carinae  (Canopus)) 
in  Reference  coords 

2^ 

CATLOG  -78D 

Direction  of  star  13D  (=15g) 

( oCanis  Majoris  (Sirius))° 
in  Reference  coords 

/-.  1820751783\ 

( + . 9404899869  ) 

\-.  286927192  6/ 

2^ 

CATLOG  -84D 

Direction  of  star  14D  (=18g) 

( Q„  Canis  Minoris  (Procyon)) 
in  Reference  coords 

/-.  4118  58S)524\ 

(+.  90654853  60  ) 

\+.  0924226975/ 

2^ 

CATLOG  -90D 

Direction  of  star  15D  (=17  ) 

( y Velorum  (Regor)) 
in  Reference  coords 

2^ 

CATLOG  -96D 

Direction  of  star  16D  (=20_) 

( 1 Ursae  Majoris  (Dnoces?) 
in  Reference  coords 

2^ 

CATLOG  -102D 

Direction  of  star  17D  (=21g) 

( Q Hydrae  (Alphard)) 
in  Reference  coords 

/-.  7742591356\ 

+ . 6152504197  ) 
1482892839'' 

2^ 

CATLOG  -108D 

Direction  of  star  18D  (=22  ) 

( QLeonis  (Regulus)) 
in  Reference  coords 

/-.  86082052 19\ 

+ . 4636213989) 

'vl-.  2098647835/ 

2^ 
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TT/S^ 

DOCUMENT  NO. 

Luminary  lu  FC-3530 

ANALST 

--7 

^9^ 

PROGRAM  CONSTANTS  (CONTINUED) 


AGC 

TAG 

MEANING 

ENGINEERING 

AND  AGC  VALUE 

AGC 

SCALING 

CATLOG  -114D 

Direction  of  star  19D  (=23„) 
(/JLeonis  (Denebola)) 
in  Reference  coords 

/-.  965660548 4\ 

{+.  0525933156) 

U.  2544380809/ 

2 ^ 

CATLOG  -12  0D 

Direction  of  star  20D  (=24„) 

( ^Corvi  (Gienah)) 
in  Reference  coords 

952521169 5\ 
0593434796) 
2986331746/ 

2 ^ 

CATLOG  -12  6D 

Direction  of  star  21D  (=25o) 
(QCrucis  (Acrux)) 
in  Reference  coords 

i i tjmaat 

K iSil 

2 ^ 

CATLOG  -132D 

Direction  of  star  22D  (=28g) 

( a Virginia  (Spica)) 
in  Reference  coords 

917009  7662\ 

3502146628  ) 

V. 1908999176/ 

2 ^ 

CATLOG  -138D 

Direction  of  star  23D  (=27_) 

( 7 Ursae  Majoris  (Alkaid); 
in  Reference  coords 

r.  5812035376\ 
2909171294  ) 

V.  7599800468' 

2 ^ 

CATLOG  -144D 

Direction  of  star  24D  (=30o) 

( 0 Centauri  (Menkent)) 
in  Reference  coords 

/-. 6898393233\ 

( 4182330640) 

\-. 5909338474/ 

2 1 

CAtLOG  -ISlJL 

7861763936\ 

( 5217996305  ) 

\+.  3311371675/ 

2 1 

CATLOG  -156L 

Direction  of  star  ( = 32g) 

( a Coronae  Borealis 

(Alphecca)) 
in  Reference  coords 

5326876930v 
/ 7160644554  ) 

V.  4511047742' 

1 

2 

CATLOG  -162D 

Direction  of  star  27U  (=33g) 

( oScorpii  (Antares)) 
in  Reference  coords 

35164i)9609\ 

(-.8240752703) 

4441196390/ 

2 ^ 

CATLOG  -168D 

Direction  of  star  28D  (-34„) 

( a Trianguli  Austr.  (Atria; ) 
in  Reference  coords 

1146237858\ 

(-.3399692557) 

9334250333/ 

2 1 

CATLOG  -174D 

Direction  of  star  29D  (=35g) 
(aOphiuchi  (Rasalhague))  ° 
in  Reference  coords 

/-. 1 124304773\ 

(-. 9694934200) 

V. 2178116072/ 

2 ^ 

CATLOG  -18()D 

Direction  of  star  3017  ( = 36g) 

( a Lyrae  (Vega)) 
in  Reference  coords 

/i-.  1217293692\ 

(-.  7702732847  ) 

V. 6259880410/ 

2 ^ 

CATLOG  -186IJ 

Direction  of  star  31D  ( = 37_) 

( aSagittarii  (Nunki)) 
in  Reference  coords 

/+.  2069525789\ 

(-. 8719885748  ) 

V. 4436288486/ 

2 ^ 

CATLOG  -192U 

Direction  of  star  32D  (=40_) 
(QAquilae  (Altair)) 
in  Reference  coords 

/+.  4537196908\ 

(-. 8779508801) 

V.  1527766153/ 

2 ^ 

CATLOG  -198D 

Direction  of  star  33D  (41g) 

( RCapricorni  (Dabih)) 
in  Reference  coords 

^■1 

2 ^ 

CATLOG  -204D 

Direction  of  star  34D  ( = 42  ) 

( QPavonis  (Peacock)) 
in  Reference  coords 

/+.  3201817378\ 

(-. 4436021946  ) 

V. 8370786986/ 

2 ^ 

CATLOG  -210D 

Direction  of  star  35D  (=43  ) 

( a Cygni  (Deneb))  ° 

in  Reference  coords 

/+■.  4541086270\ 

(-.  5392368197  ) 

V.  7092312789/ 

2 1 

CATL(^G 

Direction  o±  star  a6D  (=44  ) 

( «^Pegasi  (Enif))  ° 

in  Reference  coords 

/!-.  8139832631\ 

(-.  5557243189  ) 

V.  1691204557/ 

2 1 

MIT  INSTRUMENTATION  LAB 

CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

r Mark  Taking  Routines 

Idrawn 

9^ 

mmsiiwmm 

wT/SSk 

Luminary  ID 

DOCUMENT  NO. 
FC-3530 

Ianalst 

iAPPR'D 

mm 

PROGRAM  CONSTANTS  (CONTINUED) 

1 1 . 1 

• 

AGC 

TAG 

MEANING 

ENGINEERING 

AND  AGC  VALUE 

AGC 

SCALING 

CATLOG  -222D 

Direction  of  star  37D  (=45o) 

( o Piscis  Austr.  (Formalnaut)) 
in  Reference  coords 

/+.  8342971408\ 
2392481515  ) 

V.  4966976975/ 

2^ 

10.0  NAVIGATION  PROGRAMS 


P20,  P22  RENDEZVOUS  AND  LUNAR  SURFACE  NAVIGATION 


SUBROUTINES  ON  THIS  FLOW  CHART 

EXTENDED  VERBS 

44  RRDESEND 

TERMINATE  CONTINUOUS  DESIGNATE 

2 

53  TRMTRACK 

TERMINATE  TRACKING 

2 

67  V67 

W -MATRIX  MONITOR 

4 

85  VERB  85 

DISPLAY  RR  LOS,  AZIMUTH  & ELEVATION 

9.3  WMATRXNG 

CLEAR  RENDWFLG 

95  UPDATOFF 

NO  STATE  VECTOR  UPDATE  ALLOWED 

10 

PROG20 

RENDEZVOUS  NAVIGATION 

11 

PROG22 

LUNAR  SURFACE  NAVIGATION 

11 

REMODE 

CHANGE  RR  ANTENNA  MODE 

45 

RRSONLY 

SINGLE  AXIS  RR  SHAFT  MANEUVER 

47 

RRTONLY 

SINGLE  AXIS  RR  TRUNNION  MANEUVER 

47 

RROUT 

CONVERT  INPUT  GYRD  COMMANDS  TO 
OUTPUT  CDU  COMMANDS 

48 

BEGUES 

CHECKS  DESIGNATE  REQUEST  AND  INITIATES 
DESIGNATION 

39 

RRNB 

COMPUTE  RR  DIRECTION  IN  NB 

COORDINATES 

53 

RRRANGE 

RR  RANGE  READ  INITIALIZATION 

62 

RRRDOT 

RR  RANGE  RATE  READ  INITIALIZATION 

62 

MIT  INSTRUMENTATION  UB 
CAMBRIDGE,  MASS. 

DRAWN,  

mmmiaBismsm 

mm 

ANALST 

HU 

AP0U.0  GUIDANCE  AND  NAVIGATION 


P20.  P22 

RENDEZVOUS  &.  LUNAR 
— SUBiFACB 


LUMINARY  1D| 


REV 


DOCUMENT  NO. 

FC-3600 


ISHEH 


Of  1''.' 


EXTENDED  VERB  44 


terminate  continuous  designate 


EXTENDED  VERB  56 


TERMINATE  TRACKING 


P80  NOT  RUNNING  (RADAR  NOT  IN  USE) 
P25  NOT  OPERATING 


UPDATING  BY  MARKS  NOT  ALLOWED 
TRACKING  NOT  ALLOWED 
IMU  NOT  IN  USE 


FROM  PRECEDING  SHEET 


I 


I 


CALCULATE  VV'MATRIX  PME 
POSITION  AND  VELC'lTY  ERRORS 


CLEAR 
OVERFLOW 
; INDICATOR 


SAVE  RETURN 
IN  SZ 


CLEAR  V67FLAG 


ASTRONAUT  DOES  NOT  OVERWRITE 
W-MATRIX  INITIAL  VALUES 


/ INSTALL  \ 
/ TEST  FOR 
AVAILABILITY  OF 
\ INTEGRATION 
\FC-33  50  y 


TEST  INTEGRATION  BUSY 


Sl-< G 

WWPOSp  -• 0 

WWVELto  0 

WWBlASp-^ — 0 
XI  54 


CLEAR  ERROR  SUMMATION 
REGISTERS 


NXPOSVEL 


WWP05  v'I*(wl  )"  3UMK:ATI0N  OF  POSITION  ERROR  MATRIX 

® 1=0  ^ 

WWVELj,  V SUMf.iATlON  OF  VELOCITY  ERROR  MATRIX 

L=9 

WWBIASjj-^ summation  OF  BIAS  ERROR  MATRIX 


NO ^^VERFLOW\ 
<^I  N D I CATO 
\SET 


WWPOSb  ~ 

WWVELc 

WWBIASp 

DPPOSMAX 



1 

sFT99999c 

•?  ^ 


lRETURN  VIA  . 
\ SS  / 


AfOULO 

GUIDANCE  AND  MVIGATION 


P20.P^^ 

RENDEZVOUS  E LUNAR  SURFACE 
MAVlG-VriON 


DOCUMENT  NO. 

FC-3600 


SHEET  6 OF  103 


luminary  1 


EXTENDED  VERB  95  ! DISPLAY  RR  LOS  AZIMUTH  AND  ELEVATION 


KEYED  IN  3Y 
ASTRONAUT 


DISPLAY  RR  LOS 
AZIMUTH 
V & ELEVATION  / 


PURPOSE ; 


OUTPUT ! 


GIVEN  THE  RR  ANTENNA  TRUN- 
NION AND  SHAFT  ANGLES  COM- 
PUTE AND  DISPLAY  AZIMUTH  AND 
ELEVATION  . 

CDUTq  = RR  TRUNNION  & SHAFT 
ANGLES. 

RR-AZp  = ANGLE  BETWEENTHE 
LOS  AND  THE  X-Z  NB 
PLANE . 


VERB85 


NB  AND  PROJECTION 
OF  LOS  INTO  X-Z 
PLANE. 


PREVIOUS  EXTENDED  VERB 
OR  PRIORITY  DISPLAY  BUSY 

ERROR  EXIT 

A L M/END 

..  FC-  3100  . 


/ TESTXACT  \ 
/test  for  extendX 
ED  VERB  OR  PRIOR- 
ITY DISPLAY 
\ ACTIVE  / 

\Ft-  3100  7 


input:  extvbact 

output:  bits  3 & s of  extvbact  set 
to  indicate  extended  verb 

ACTIVE 


dsprrlos) 


RRLOS  DSP 
FINOVAC  JOB 
I ■ PRIORITY 
5 


SCHEDULE  JOB  TO 
COMPUTE  LOS  azimuth 
AND  elevation  ANGLES 


/PRiOCHNSX 
/ LOWER  priority' 
0 F ACTIVE  JOB 
\ FROM  30  TO  4 j 
\ FC-3030  7 


IMMEDIATE  RETURN 


/ BLANKET 
BLANK  R3 
REGISTER  OF 
aSKY 
FC-  3000 


f GOMARKFR  \ DISPLAY  RR  LOS  AZIMUTH  & ELEVATION 

V 16  N EG  \ Rl-RR-AZ  - XXX. XX  DEG.-LOS 
DISPLAY  RR  j AZIMUTH  ANGLE. 

,LOS  AZ.SELEV.  / RZ-RR-ELEV- XXX  .XX  DEG.-LOS 

T ' ELEVATION  ANGLE. 

TERMINATE/ PROCE ED/ ENTER 


ENDOFJOB/ 


CLEAR 
BIT  E OF 
EXTVBACT 


TERMINATE 
RRLOSDSP  ROUTINE 


P 20,  P22 

RENDEZVOUS  & LUNAR  SURFACE 
NAVI  GATI  ON 


LUMINARY  1 D 


RRLOSDSP) 


TANGNB^ 


SUBROUTINE  TO  COMPUTE  LOS  AZIMUTH  AND 
ELEVATION  ANGLES  FOR  V16N5G  DISPLAY. 

input:  cdut  =rr  trunnion  & shaft  angles. 

output:  RR-AZp=  RR  LOS  AZIMUTH  ANGLE. 

RR-ELEVp=RR  LOS  ELEVATION  ANGLE. 

1 LOAD  RR  TRUNNION  S SHAFT  ANGLES 

J FOR  RRNB  ROUTINE 


RRNB ; 

COMPUTE 
LOS  UNIT 
VECTOR 

5H53  , 


INPUT  : TANGNBo  = RR  TRUNNION&SHAFT  CDU 


OUTPUT  ; PL3Z, 
MPAC, 


ANGLES  . 

RR  LOS  UNIT  VECTOR  IN  NB 
COORD . 


UNIT  (PUG^) 


STORE  LOS  VECTOR 
ZERO  Y COMPONENT 

UNIT  OF  LOS  PROJECTION  INTO  X-Z  PLANE 


COSTHj 

SINTH, 


-UNITX^  • PLG. 


COMPUTE  ELEVATION  ANGLE 

store  sine  and  COSINE  OF  ELEVATION 
ANGLE  FOR  ARCTRIG  ROUTINE 
(angle  BETWEEN  +Z  NB  AND  PROJECTION 
OF  LOS  INTO  X-Z  NB  PLANE) 


/ ARCTRIG 
/ COMPUTE 
THETAp  GIVEN 
\SINE  & COSINE 
\ FC-  3310 


input:  SINTHp=  SINE  OFTHETA 

COSTHp=  COSINE  OFTHETA 


OUTPUT : THETA , 


ANGLE  THETA  IN  REV. 

(-.56  e <.  .s) 


ANGLE  I S POSITIVE 

I ~ YES^ 


IS  \ 
THETA  2 0 


ANGLE  IS  NEGATIVE  : MAKE  IT  POSITIVE 
C„+  OPPOSMAxJ  INSURE  DISPLAY  OF  0-3G0  DEG.  A80UT  + Y 


RR- ELEVp— 

MPACq 

SINTHp— 

COSTH 

PLO^'UNITY^ 
PLO^ • PLG^ 

/ ARCTRIG  \ 

/ COMPUTE  \ 

{ THETAjj  GIVEN  ) 
\sinE  & COSINE  / 

\ FC-3310  / 

STORE  ELEVATION  ANGLE  FOR  NSG  DISPLAY 

COMPUTE  AZIMUTH  ANGLE 

STORE  SINE  AND  COSINE  OF  AZIMUTH 
ANGLE  FOR  ARCTRIG  ROUTINE 
(ANGLE  BETWEEN  THE  LOS  AND  THE 
X-Z  NB  PLANE) 


input:  sintHu=  sine  of  theta 

COSTHjj=  COSINE  OFTHETA 


output:  thetAj. 

MPAC., 


ANGLE  THETA  IN  REV. 
(-.5  < e < ,5) 


NEXT  SHEET 


MIT 

iNsiWMiNrAriaN  lu 
ammim.  mass. 


MIAMM  Ip- 
PUCMM^ 

MMIST 


ANUO 

aWtAMg  AM  MAWKATION 

PZO, PZZ 

rendezvous  i LUNAR  SURFACE 
navigation 


LUMINARY  ID 


FC-3600 

1 SHHT  8 S 103 


EXTENDED  verb 


CLEAR  RENOWFLG 


W MATRIX  INVALID  FOR 
RENDEZVOUS  NAVIGATION 


EXTENDED  VERB  ^5 


NO  STATE  VECTOR  UPDATE  ALLOWED 


NEITHER  CSM  NOR  LEW  STATE 
VECTOR  MAY  BE  UPDATED 


FROM 

PRECEDING  SHEET 


ENTER  DATA 

/ goflash  \ 

^ VO  fe  N 33  \ 

ERMINATE 

DISPLAY  EST.  / 

GOTOPOO 


V 


^ORBCHGE^ 


^ orbchgT^ 


INSTALL 


TEST  FOR 
[availability  OF 
INTEGRATION 


. FC-  33  50 


VINTFLAG 

CLEAR 

INTYPFLG 

CLEAR 

DIMOFLAG 

CLEAR 

D60R9FLG 


I NTE6RV 


UPDATE 
PERMANENT 
.STATE  VECTOR 


FC-  3350 


GROUP2 


/SET  UP  RESTARTS  TO 

/schedule  next  LOCA- 

/tiON  as  A FINDVAC  JOB 

'with  same  priority 


INSTALL 


TEST  FOR 
AVAILABILITY  OF 

integration 


, FC-  3350 


display  ESTIMATED  LAUNCH  TIME 
R1  I XXX . HRS 

XX.  MIN 
XX. XX  SEC 


R2  ;►  -TIGp- 


ESTIMATED  TIME 
OF  LAUNCH 


R3 


PROCEED 


LN  CHTMp ' 
TDEClp  . 

^ — tig„ 

STORE  launch  TIME 


LEM  state  vector  BEING  INTEGRATED 
ENCKE  integration 
V/  MATRIX  IS  NOT  TO  BE  USED 
DIMEMSION  OFW  IS  6 FOR  INTEGRATION 


RSUBL^ 

RATTl^ 

tdeci^  — 

TATp 

NEXT  SHEET 


FROM 

PRECEDING  SHEET 


'SET  

VINTFLAG 

CLEAR 

INTYPFLG 

CLEAR 

DIMOFLAG 


CSM  state  vector  being  INTEGRATED 


ENCKE  INTEGRATION 


W MATRIX  IS  NOT  TO  BE  USED 


^IS\ 

'^ENDWFL^ 

SET 


SET 

DIMOFLAG 

SET 

DGOR9FLS 


W MATRIX  IS  TO  BE  USED 


DIMENSION  OF  W IS  9 FOR  INTEGRATION 


NOMATX 


/ INTEGRV  \ 

' UPDATE  ' 

PERMANENT 
^STATE  VECTOR^ 
\fC-  33  so  y 


/ GROUP2 

/set  UP  RESTARTS  TO 
/schedule  next  LOCA-, 
/tion  as  a findvac  job/ 

'WITH  SAME  priority/ 


VATTl^ 

RATTl^ 

■UNIT(RSUBC^  XVSUBC^) 
-UNIT(RSUBL^  X PLtODyj 
UNIT  (RSUBC^)-  UCSM^ 

VoNEB-a,-  (CSTHp)i 


NORMAL  TO  PRESENT  CSM  ORBITAL  PLANE 


INPUT  values  for  TIME-THETA  ROUTINE 


RSUBC^ 
- VSUBC^ 


LOAD  I N PUT  FOR 
TIME-  THETA  ROUTINE 


CLEAR 

RVSW 


COMPUTE  FINAL  STATE  VECTOR 
IN  TIME-  THETA  ROUTINE 


NEXT  SHEET 


INSimMENrATION  UW 
CAMMINE,  MASS. 


ANUO 

6HIMNCI  AM  IMVICATION 

PZO, PZZ 

RENDEZVOUS  & LUNAR  SURFACE 

NAVIGATION 

LUMINARV  iD  DOCUMENT  NO. 

3«oOO 


SHKT  13  Of  103 


FROM 

PRECEDING  SHEET 


PR0G20A 


R02  BOTH 
IM  U 
STATUS 
CHECK 


SET 

UPDATFLS 

SET 

TRACKFLG 

SET 

RNDVZFLG 


UPDATING  BY  MARKS  ALLOWED 


TRACKING  ALLOWED 

PZO  / PZl  running  ( RADAR  IN  USE) 


CLEAR 
ROAFLAG 
CLEAR 
NORRMON 
CLEA  R 
SRCHOPTN 
CLEAR 
ACMODFLG 
CLEAR 
LOSCMFLG 


R77  REQUESTED 


PERFORM  RR  SIM8AL  MONITOR 


RADAR  not  in  SEARCH  OPTION 

AUTO  ACQUISITION  BY  RENDEZVOUS  RADAR 

LINE  OF  SIGHT  NOT  BEING  COMPUTED 


REMOVE  \ 
DESIGNATE 
REQUESTS / 
C SH49  7 


SET^-- 

FSPASFLG 


FIRST  PASS  THRU 
REPOSITION  ROUTINE 


/ RESTART  JOB 
AT  NEXT 
INSTRUCTION  , 


MARKCTR 


ZERO  RENDEZVOUS  TRACKING 
MARK  COUNTER 


P20LEM21 


NEXT  SHEET 


MiTwumrwioN  iar 

CAMRMCE,  MASS. 

iRAiw)  a 
A«cM» , 

9ocm 

Aff«*0 


AfOUO 

SUIDAMCt  AND  NAVIGATION 

PZO, PZZ 

RENDEZVOUS  t LUNAR  SURFACE 

navigation 

LUMINARY  ml 

I FC-3 

lo/y,//7|l«V2  I SHEET  IS  Of  lUi 


FROM  PRECEDING.  SHEET 


PREFERRED 

tracking 

attitude 


input:  LOS  vtCTDR 
OUTPUT:  MANEUVER  TO  PREFERRED 

Tracking  attitude 


PeOLEMD 


/RESTART  JOR  AT  NEXT 
/INSTRUCTION  WITH  PRIO.iO 


/ PRIOCHNG  ' 
RESTORE 
PRIORITY  26 


^RACKFLG 

P20LEMB7 


I P2  0LEMWT 


P20LEMB5 


16  BIT  2 
OF  CHAN,  y 
\ 36=02  / 


TEST  RR  auto  MODE 
DISCRETE  PRESENT 


IS 

^MODRE^ 
= 20  OR  ZZ 


NEXT  SHEET 

P20  OR  P22  operating 


P20LEMBG 


REQUEST  SELECTION  OF  AUTO  MODE 


PROCEED/ENTER 


PRIQLARM' 
V05N06 
R1 » 514 


PR  OUT  OF  AUTO 
MODE  WHILE 
IN  USE 


IMMEDlATEi  RETURN 


V50N25 

Rl=201 


/ LUNSFCHK 
''check  LUNAR 
\ SURFACE  FLAG  , 


TERMINATE 


FLAG  SET  vPlz'l 


NOT  SET(pEO) 


' MANUAL 
ACQUISITION 
. OF  C5M  , 


PEOLEMBE 


/ TURN  ON  \ 

(^operator  error 

\ LIGHT  / 


SET  ACMOOFLG 


MANUAL  ACQUISITION 


INSTRUMEWWrail  UB 
CAMMmSE,  RMSS. 

A.C.WIUL1AMS 


AFOLLO 

QmMHCE  AMO  NAVIGATKM 

P20,  P22 

RE  NDEZVOUS  < LUNAR  SURFACE 

navigation 


LUMINARY  il 


FC-3600 


SHEET  17  OF  103 


FROM 

PRECEDING  SHEET 


. ENOOF JOB 


P20LEWC 


RESTART  JOB 
AT  WEXT 
INSTRUCTION  j 


/ 15  \ 

rndviflg 


/ IS  \ 
TRACKFLG 


/ FIXPELAYX 
DELAY  TASK 

issec. 


P20LEMCe 


DELAY  TASK 
15  SEC. 

vFC“3O40  / 


RNDVZFLG 


/ IS  \ 
TRACKFL6 
s.  SET  > 


RB2LEM42 
FINDVAC  job/ 
PRIORITY  Z(b\ 


ACQUIRE  CSM 
WITH  RADAR 


PZOLEMDi 

\TW  I POLE  TASK/ 
/ IN  15  SEC.  \ 


LOCK-ON  ACHIEVED 


— ( PEOLEMOl 


15  X 

trackflg 

V SET  / 


P20LEMWT j 


A— -2.5  SEC. 


I P^OLEMV<T4l 


RZ2WAIT 


15  SEC 


yWiPDL£17k&K  / 
/iKI  c(A'i  5EC.\ 


»5  \ 

TRACkFLG 
\ SET  > 


P20LMWTL 


, ENOOFJDB 


PBOLEMDZ 


PZOLEMCa 
FINDVAC  JOB 
PRIORITY  Zio 


vTASKOVEK 


IffSTlUMnirATiON  LAB 

cmmmt,  mass. 


TASKO'^ER 


APOUO 

CUIOANCE  ANB  MAVIGATION 


P20.PBZ 

RENDEZVOUS  C LUN^R  SURFACE 
NAVIGATION 


LUMINARY  ID 


bUBROUTlNE  TO  UPDATE  PERMANENT 
STATE  VECTORS  TO  PRESENT  TIME 


SAVE  RETURN 
IN  LS21X 


/ TEST  FOR  \ 
'availability  OF^ 
\integratiom  / 


SET  STATEFLG 
CLEAR  INTYPFLS 
CLEAR  DIMOFLAG 
CLEAR  D6  0R9FLG 


PERMANENT  STATE  VECTOR  UPDATED 
ENCKE  INTEGRATION 
V/  MATRIX  IS  NOT  TO  BE  USED 
DIMENSION  OF  W IS  6 FOR  INTEGRATION 


/ IS  \ 
P.ENDWFLG 
\ SET  / 


SET  OIMOFLAS 


INTEGRATION  USING 
VV  MATRIX 


//  IS  \ 
SURFFLAG 


SET  DGORSFLG 


DIMENSION  OF  W IS  9 
FOR  INTEGRATION 


' UPP5V5 


X IS  \ 
VEHUPFLG 
\ SET  / 


CMS  STATE  VECTOR 
being  INTEGRATED 


CLEAR  VINTFUAG 


LEM  STATE  VECTOR 
BEING  INTEGRATED 


NEXT  SHEET 


NEXT  SHEET 


INSTROMIIIMrigN  LM 
CAMMfME,  W»S. 


AKUO 

GUISANCE  AM  NAVIGATION 

PBO,  PSB 

RENDEZVOUS  fi  LUNAR  SURFACE 
NAVIGATION 


LUMINARY  LTD 


•OC**_2 
Am’#  H- 


DOCUMENT  NO. 

FC-3600 

I SHEET  CO  OF  103 


FROM  PRECEDINd  SHEET 


FROM  PRECEDIKJG  SHEET 


INTEGRV 

update 

PERMANENT 
\ state  VECTOR/ 

, FC-33EO 


INTEGRV 
UPDATE 
PERMANENT 
^ state  vector 

. FC-  3 3 50 


GROUP  Z. 
RESTAFTT  JOB 
AT  NEXT 
INSTRUCTION 


GROUP  g. 
RESTART  JOB 
AT  NEXT 
INSTRUCTION 


INSTALL 
TEST  FOR 
f AVAILABILITY  OF' 
INTEGRATION 
, FC-3  3 5 0 


INSTALL 
TEST  FOR 

’ availability  of 

INTEGRATION 


. FC-3350 


• J 

MPACp  -• TETCSMp 

J 

t .. 

LOAD  TIME  FOR 
LEM  INTEGRATION 


CLEAR  VINTFLAG 


BEING  INTEGRATED 


MPAC„  -N 

1 TETLEM„ 

D 

D 

CSM  STATE  VECTOR 
BEING  INTEGRATED 


LOAD  TIME  FOR 
CSM  INTEGRATION 


(uppsva) 


INTEGRATE  OTVIER  VEHICLE 
WITHOUT  W MATRIX 


SET  5TATEFLG 
CLEAR  INTYPFLG 
ICLEAR  DIMOFLAG 
CLEAR  DGORSFLe 


PERMANENT  STATE  VECTOR  UPDATED 
ENCKE  INTEGRATION 
W MATRIX  ISN0TT0  8EUSED 
DIMENSION  OF  W IS  fe  FOR  INTEGRATION 


— 

TDECljj-* MPACj, 

I NTEGRV 
UPDATE 
PERMANENT 
• STATE  VECTOR 


.F=C-3350 


YES 


LM  POSy-^ 

RCVLEMy 

LMVELy-^ 

VCVLEMv 

• RETURN  VIA/ 

\ Lsaix  / 


«tT 

tmmmBmtifrm  urn 

tmm\9n.  smss. 

u.i  ■■ 

ElB^ 

; /MMLST 

AAOUO 

GUIMMCE  MB  WVICATION 


P20,  pee 

RENDEZVOUS  e LUNAR  SURFACE 
NAVIGATION 


DOCUMENT  NO. 

FC-3600 

TiHffTTir'orrcn 


LUMINARY  ±'D 


SUBROUTINE  TO  COMPUTE  VECTOR 
EXTRA  POL  ATION  AND  LOS  TO  CSM 


LPS20.lj  INPUT  : STATE  VECTORS  , TDECl^j  = MPACp=  PRESENTTIME 

' output:  RRTARGET^  = LOS  VECTOR  IN  SM  COORD. 

PL3feo=  MLOSVjj  = MAGNITUDE  OF  LOS  VECTOR 


LS21X 

QPRET 


SAVE  RETURN 
IN  LS2  1 X 


\'S>  \ 

LOSCMFLG 
"V  SET 


LM  ON  MOON  SURFACE 
(PZE)  I YES^ 


/ IS  \ 

surfflag 

\ SET?// 


/ LEMCONIC  \ 
' LM  ORBIT 
I NTEGRATIO  N 

^-ro  (tdeciJ  time 
\fc-3  3SO  / 


input:  lm  state  vector 


PRESENT  TIME 


output: ratt^  = 

VATT^  = 


: - 


LMPOSy  — — 
LMVEL^  — — 
MPAC  p-* 

RATTy 

VATT^ 

TATj, 

STORE  LM  STATE  VECTORS 
LOAD  MPAC  WITH  INPUTTIME 


MPACjj 


STORE  INPUT  time  FOR  CSM  CONIC  ROUTINE 


/ CSMCONIC  \ 
''OSM  ORBIT  ' 
INTEGRATION  TO 
\ (TDECl)  TIME  / 
\ FC-3350  7 


input;  CSM  state  vector 

TDECi„  = PRESENT  TIME 


output:  RATTy  = PO 
VATT^  = YE 


SITION  1 
LOCITY  J 


VECTOR  FOR  CSM 


MPAC,;^  REFS  MMAT^ 

(VATT^  - LMVEL^) 

1 — - • • ‘ ‘ V 

COMPUTE  RELATIVE  VELOCITY 


NEXT  SHEET 


MIT 

iNsmiMurwiON  lm 

CMMWCi,  MASS. 


MAWN  <y. 

PACMB 

AMAIST r 

BocMA 


APOLLO 

OIHMHCC  AND  NAVtOATIOM 

rendezvous  & LUNAR  SURFACE 

NAVIGATION 

LUMINARY  i D OOCIAKUr  NO.  ~~ 

FC-3(oOO 

KV  ? I S*€tT  22  Of  103  i 


RETURN 

TO  ae-n 


FROM 


PRECEDING  SHEET 


SUBROUTINE  TO  TEST 
LUNAR  SURFACE  FLAG  (SU 

CALLING  SEQUENCE 
se  + o-TC  lunsfchk 
sC  + 1 - LEM  ON  SURFACE 
je+2-LEM  NOTONSUR 

ZO) 

LEM  NOT  ON  SURFACE 

INCREMENT 


RETURN  TO 

je-tz 


RFLAG^ 

( 

FACE  (PZO) 


MfT 

lasiRMmMirMH  urn 

tmmmm..  lam. 


nuMwi 


m 


MWIST 


ATOUiO 

Mi  NMtCAfKM 


P20 , PZl 
RENDEZVOUS  t LUNAR  SURFACE 
NAVIGATION 


LUMINARY  ID 


DOCUMNr  NO. 

FC-3GOO 


•i  rill 


Lo/zi/uA 


KV  2 


PREFERRED 
TRACKING  ATTITUDE 


FINE  PREFERRED 
TRACKING  ATTITUDE 


/ MAKECADR  \ 

/construct 

CADR  OF  RETURN 
\ ADDRESS 

VfC-30GO  i 


output: 

A=  CADR  OF 
RETURN 
ADDRESS 


/ MAKECADR  \ 

' CONSTRUCT  \ 
CADR  OF  RETURN 
^ ADDRESS  / 
\fC-  3060  7 


GENRET 

SAVE  RETURN 

GENRET 

A 

IN  GENRET 

A 

SAVE  RETURN 
IN  GENRET 


SET 

R61FLAG 


RUN  R6i  LEM 


CLEAR 

RfelFLAG 


RUN  R65  LEM 


R63WAIT 


PSO^EMWT 
^ SH13  ^ 


R61C+L02 


X 'S  \ 

TRACK FLG 
\SET?  / 


R61C+L03 


R61C+L01 

, SH87  , 


/ LOADTIME  \ 

''load  present 

TIME  INTO 
, MPAC„ 
\FC-3150  7 


OUTPUT : 

MPACp  = TIME  2 , TIME  1 


EXTRAPOLATE  FORWARD  TO 
CENTER  OF  SIX  SECOND  PERIOD 
IN  LPSZO.  1 ROUTINE 


7 LPS^O.l  \ 
/vector  EXTRAPOL^ 
ATION  AND  LOS 
\ COMPUTATION  / 
\ SH2E  / 


input: 

STATE  vectors,  TDECI 
OUTPUT : 

RRTARGETy  = LOS  TO  CSM  IN  SM 

coordinates 


POINTVSM, 


■ RETARGET^ 


READCOUD N 


LOAD  DESIRED 

ecu's  into 

MPAC-r 


MIT 

HBKWMINrAriON  LAB 
CMBWW8C.  MASS. 


Pto, PEI 

RENDE-EVOUS  & lunar  surface 
NAVIGATION 


MWMBMNO. 

FC-3600 


i^^EXT  SHEET 


FROM 

PRECEDIMG  SHEET 


/ VECPNT-l  \ 

/compute  desired^ 

ANGLES  TO  POINT 
\ VEHICLE  / 
\ FC-  3 4 2 O 7 


input:  scaxi5^  = specified  s/c  axisto  be 

MANEUVERED 


output;  MPAC^=  DESIRED  3 GIMBAL  ANGLES 


j &R0UP2 I 

/set  up  restartsto/ 
/schedule  next  loc- / 
/atioh  as  a findvac  / 
/job  with  same  prioriti/ 


R65WAI- 
V,  SH24 


/ IS  \ 

trackflg 
\ set  / 

I TES 


G-FN,AUTO 
CHECK  G+N 
AND  AUTO 
SWITCHES 
FC-5420 

I +0 


BOTH  SWITCHES  NOT  SET 


R&1C+L04 


BALLANGS 


MPAC,^— 

- RRTARGET^ 

1 

INPUT : CPHI  , CTHETA 
C PSI 


/ CPU*SMNB  \ 

/transform  vector'' 

FROM  SM  TO  NB 
\ COORDINATES  / 
\fC-  33  2 0 7 


COMPUTE  LM  \ CPSI 

dTsp'^lVa^'g^es  / 

V — — / fdaiz 

\FC-  3420  7 


R61C+L06 

^ SH2.  . 


output:  mpac„-  transformed  vector 


MPAC+Sp-COSlSDEGo  MPAC  + 5d=  PHI  =r  Z - COM  PONENT  OP  LOS 


NEXT  SHEET 


MIT 

mwuwnirwioN  lab 
cmmmu,  mass. 


AAQLLO 

CUtWMCE  Mi  MAVIGATION 

PZO. PZZ 

RENDEZVOUS  & LUNAR  SURFACE 

NAV  C SATtON 

1 T TTXIITTKT  A 1 DOCUMENT  HO. 

H.VM.N.HY.D  pe_  34,00 
itv“2  I SWET  ZE  OF  lUS 


FROM 

PRECEDING  SHEET 


IS  \ 

PHI  > 

15  DEG 


RfclC+LOE 


IKIHIBIT 

IN-ER- 

RUPTS 


/ TATTEROR  \ 

/store  cou  angles' 

m CDU  DISIRED, 
ZERO  INPUT  TO 
\ AUTO  P I LOT  ^ 

\FC-  3 4.30  7 


INHIBIT 

INTER- 

RUPTS 


5ETMINDB 
SET  0.3° 
R C S 

DEADBAND 


ALLOW 

INTER- 

RUPTS 


CLEAR  MANEUVER  SPECIFIED 

3AXISFLG  BV  ONE  AXIS 

SET  PRIORITY  DISPLAY 

PDSFFLA6  FLAG  FOR  RfeOLEM 


RGIBANK 


' RfeOLEM 
AUTO 

ATTITUDE 

maneuver 

. FC-  34Z0 


Re3LEM  , 


SUBROUTINE  FOR  MANUAL 
ACOUlSmON  OP  GSM 


' SET  NORRMON 


BYPASS  RR  GIMBAL  MONITOR 


INHIBIT 

INTER- 

RUPTS 


/ SETM1MDB\ 
SET  0.3®  RCS 

deadband 
\FC-3+40  7 


RGILEM  > 
PREFERRED 
TRACKING 
ATTITUDE 


SET  BIT 
14  OF 
CHAN.  IB  , 


GOPERFl 
V50  NB5 

Ri*  eos 


ENABLE  AUTO  TRACKING 


A-^ 

eo5e 

i 

MANU^L  ACQUISITION 
or  RADAR 


Rl-  eos  ] terminate 

,,  PROCEED 
K23LEMlO 


INHIBIT 

INTER- 

RUPTS 


RB3LEM2. 


t 

[ CLEAR  NORRMON 

PERFORM  \ 
OIMBAL  MO 


, GOTOV5G 


/RRLIMCHK  \ OUTSIDE 

/check pesired\  limits 

\G  I M BA  L ANGLES  / 

\ SHgS/ 

,,  >A/1THIN  LIMITS 
/ RESTORPB  \ 

/restore  DEADBAnk 
TO  ASTRONAUT  \ 

^ SELECTED  VALUE/  

\fC-  3440  7 I 


ALLOW 

INTER- 

RUPTS 


PERFORM 
RR  GIMBAL 
MONITOR 


CLEAR  NORRMON 

P20LEMB1 

\SHir^ 


; OUTOFLI  M 


ALLOW 

INTER- 

RUPTS 


■501^1 

RADAR  ANTENMA  OUT  OF  LIMITS 


PRIOLARM 
VOSNOS 
Rl^  SOI 


immediate 

RETURN 


■NT 

ifisTRuacMFivrraN  lm 

CAMMtlME,  IPASS. 

MMm  A.C.WILLIAMS 

5-Z4-(.8 

P1»0»«  |<P,  i/Ui.  * 

ANAL  ST 

BBCm  i 

vENDOFJOB 


APOLLO 

AND  NAVIGATION 


P20,  PZZ 

RENDEZVOUS  ^ LUNAR  SURFACE 
MAVIGATIOKI 


LUMINARY  ID 


DOCUMENT  NO. 

FC-3600 


RRLIMCH 


PICK  UP  address  of  desired 

TKUNMIOKl  AND  SHAFT  ANGLES 


SUfiROUTINE  TD  GHEa<  DESIRED 
GIMBAL  ANGLES  TO  SEE  IF  THEY 
ARE  WITHIN  THE  LIMITS  OF  THE 
CURRENT  RR.  ANTENNA  MODE 


A-^£  + l 


Q — 
1 + Q 


INCREMENT 

Q 


ITEMPU 


. CONTENTS  OF  THE 
ADDRESS  IN  A 


CALLING  SEQUENCE 

r+  O TC  RRLIMCHK 

3t+  1 address  or  DESIRED  ANGLES 

2 + E RETURN  IF  NOT  WITHIN  LIMITS 

it  +3  RETURN  IF  WITHIN  LIMITS 

STORE  THE  DESIRED  TRUNNION 
AND  SHAFT  ANGLES  IN  ITEMPiZ 


SAVE  RETURN 
IN  U 


TEST  RR  ANTENNA  MODE 
YES  MODE  E 


(^modeechk) 


LOAD  desired 
TRUNNION  ANGLE 


OvIAGSUB 


A eZDEGS+ ITEMP2 

\ 

LOAD  DESIRED 
SHAFT  ANGLE  +82" 


IS  TRUNNION 
ANGLE  <55° 


IS  /a/  < \ NOT  MODE  1 

\GIVEN  CONSTANT/ 


NC5r  MODE  Z. 


NO 


SHES  , 


LOAD  DESIRED 
SHAFTANGue 
+ 5.5° 


,YES 

A-^  5.5  DEGS+  ITEMF^ 

1 

\ 

IS  SHAFT 
ANGLE  ES4.5" 


MAG5UB 

IS  /a/  < \ NO 

> GIVEN  constant  , 


Return  vi;^ 

RETURN  TO 

NOT  within  limits 
OF  CURRENT  MODE 


NO 


MAG5UB 
IS /a/  < 

, GIVEN  CONSTANT/ 

SHE9/ 


[yes 

A — ITEMPl 

NO 


MAGSUB 

IS  /a/  < 

, GIVEN  CONSTANT/ 


IS  SHAFT  ANGLE 
< 5T° 


LOAD  DESIRED 
TRUNNION  ANGLE 


IS  TRUNNION 
ANGLE  >125° 


SHE9  . 


SH29/ 


YES 


YES 


RRLIMOK 


subroutine  TO  COMPARE  /a/  ~1 

WITH  A CONSTANT  I 


(^MAGSU^ 


.RETURN  VIA 
\ L+1  / 


RETURN  TO  ^ + 3 
DESIRED  ANGLES  WITHIN 
LIMITS  OF  current  MODE 


CALLING  SEQUENCE  \ 

31+ O TC  MAGSUB  \ 

£+1  DEC  - CONST  \ 

£+Z  RETURN  IF/A/>  CONSTANT  I 
£+3  RETURN  IF/a/<  CONSTANT  ' 


A . CONTENTS  OF  THE 
^ ADDRESS  IN  Q 


/a/  > CONSTANT 

YES 


\ RETURN  VI/ 

\ Q+  1 

RETURN'D  X+Z 


a^/a/+  C-  const) 

(THE  CONSTANT  ATX’+  1 IS 
A negative  quantity) 


RETURN  TDX+ 3 


MIT 

INSimMENTATION  Ul 

DMMWIDGE,  MASS. 

MAWN  A.C.WILLIAMS 

MCAW 

■evA-if 

AMtlT 

mm 

AKUO 

WIMHa  Mi  WWKAriON 


PZO,  P2Z 

RENDEZVOUS  E.  LUNAR  SURFACE 
NAVIGATION 


LUMINARY  ID 


•OCUMEiT  iO. 

FC-3600 


«V 


SICCT  Z9  Of  103 


SUBROUTINE  TO  ACQUIRE 
CSM  WITH  RADAR 


VCLCAR  BITI 
\ lA  OF 
\ CHAN. 12  / 


REMOVE  RR 
SELF  TRACK 
ENABLE 


(P20)  LUNSFCHK 

NOT  SET  / CHECK  LUNAR 

/ SURFACE  FLAG 

\ SURFFLAG 
Xu  SH23  , 


(paa) 

FLAG  SET 


T ON  LUNAR  SURFACE 

^R21LEM5j  COMMAND  RR  ANTENNA 
I ^ TO  MODE  a 


NOT  ON  LUNAR 
SURFACE  COMMAND 
RR  ANTENNA  TO 
MODE  CENTER  - 

TANG  — 
TANG  +1- 


RglLEMlO 
^ SH30  ^ 


TRUNNION  = 0° 
SHAFT  = 0° 


IS 

■^NTENFLG 
\ SET?/ 


TANG— — bit  15  trunnion  = 180® 
TANG+l— HALF  SHAFT  = -90° 


R^1LEM6 


CLEAR 

LOKONSW 


RADAR  LOCK-ON 
NOT  DESIRED 


/ RRPESNB 
DESIGNATE 
TO  SPECIFIC 
GIMBAL  ANGLE 
\ SH32 


INPUT  : TANG  jTANG  +1  = DESIRED  RR  ANTENNA 

GIMBAL  ANGLES 

output:  RR  DESIGNATED  TO  INPUT  ANGLES 


/ RADSTALL  \ 

' WAIT  FOR  \ 

COMPLETION  OF  \ 

\RADAR  routine/  INPUT  ANGLES 
\FC-3t20 7 NOT  ACHIEVED  , 


NOT  ACHIEVED 


(RSILEMIO 


LINE  OF  SIGHT 
BEING  COMPUTED 


SET  

LOSCMFLG 


ALLOW  GO  PASSES 
TO  DESIGNATE  AND  LOCK-ON 


DESCOUNT- 


R21LEM2) 


/ PRIOLARM 

( VO  5 N 09 

\ Rl  = 503 

PROCEED  ^ 

/riisrci/) 


RADAR  antenna  DESIGNATE  FAIL 
\ IMMEDIATE  RETURN 


/TERMINATE 


LINE-OF-  SIGHT  TO  BE 
COMPUTED  EVERY 
FOURTH  PASS  THRU 
DODES 


LOSCOUNT- 


NEAT  SHEET 


recycle: 

TRY 

AGAIN  tr- 


/ GROUP2  j 
/ RESTART  JOB  At/ 
/NEAT  instruction/ 


P20UEMC3 

R^4LeM 

PERFORM  radar 
SEARCH  ROUTINE 


•NT 

msiwMNrMtsN  u« 
CMMRIMt.  MASS. 


ATOUA 

nwiANCt  mm  navigathw 

P^O , PZZ 

r.^uJSi  RENDEXVOUS  & LUNAR  SURFACE 

NAVIGATION 

'JWfL  n DOCUMENT  NO. 

LUMINARY  ID  ^ ^ ^ 

r O J O U U 


IllaJigJLJffiai 


FROM 

PRECEDING  SHEET 


, RZILEMI 


/ LOAPTIME  \ 
LOAD  PRESENT 
TIME  INTO 
M PAC  „ 


OUTPUT ; 


-MPACd  + • 5 SEC, 


/ UPS Z 0.1  \ 

/vector  extra POL^ 
'aTION  and  LOS 
\ COMPUTATION  / 


□STORE  PRESENT  TIME  PLUS 
. S'  SEC.  IN  TDEClp  FOR 
LPSZO.  1 ROUTINE 

input:  TDEClp=  TIME  FOR  EXTRA- 
POLATION 

output:  rrtar&et.^=  los  (half  unit) 

VECTOR  IN  SM 
COORDINATES 


MLOSV. 


= magnitude  of 
LOS  VECTOR 


R^iLEMS 


SET  

LOKONSW 

CLEAR 

NORRMOM 


RADAR  LOCK  -ON 
OESI  RED 

PERFORM  RR  GIMBAL  MONITOR 


LOS  NOT  IN  MODE  ^ 
ON  LUNAR  SURFACE, 


R21LEM4 


/ R R D E S S M 
DESI GNATE  RR 
TO 

RRTA  RGET^ 


VEHICLE  MANEUVER  REQ  UIRED 


NO  VEHICLE  MANEUVER 
REQUIRED 


/ RAD  STALL  \ 

' WAIT  FOR  \ 
COMPLETION  OF 
RADAR  ROUTINE  / 


LOCK-ON 
ACH  lEVEO 


BAD  EXIT 


P20LEMA 


RETURN  TO 
P^0/ PIZ 
PROGRAM 


LOCK-ON  NOT  ACHIEVED 
IN  60  TRIES  ISSUE 

alarm 


R21-S03 


R21END 


CLEAR 

LOSCMFLG 


LINE  - OF-  SIGHT  NOT 
BEING  COMPUTED 


(PSO) 
NOT  SET 


R2-1DISP 


SH06 


/ LUNSFCHK 
/ CHECK  LUNAR 
SURFACE  FLAG 
\ SURF FLAG 


(P22) 
FLAG  SET 


% H 


CALLING  sequence: 

^e  + O TC  RRL  MNB 

+ 1 ADDRESS  OF  DESIRED  ANGLES  I 
+ z return  if  not  within 
LIMITS 

ae+3  RETURN  IFWITHIN  LIMITS 


RRLIMNB) 


SUBROUTINE  TO  CHECK  DESIRED  &IMBAL  ANGLES 
TO  SEE  IF  THEY  ARE  WITHIN  THE  LIMITS  OF 
THE  CURRENT  RR  ANTENNA  MODE  (THIS 
ROUTINE  IS  IDENTICAL  TO  RRLIMCHK  EXCEPT 
THAT  THE  MODEl  LOWER  LI  MIT  IS  - 85 
INSTEAD  OF  -70  DEGREES) 

n PICK  UP  ADDRESS  OF  DESIRED 

J TRUNNION  AND  SHAFT  ANGLES 


INCREMENT 

<3 


CONTENTS  OF  THE 
’ ADDRESS  IN  A 


STORE  THE  DESIRED  TRUNN  I ON  AND 
SHAFT  ANGLES  IN  ITEMPl  , 2 


SAVE  RETURN 

IN  L 


TEST  RR  ANTENNA  MODE 

ANTENFLG^  ^ 

\ SET 


■ITEMPl 


M00E2CHK 


LOAD  desired 
TRUNNION  ANG  LE 


EXIT  TO 

RRLIMCHK  CODING 


IS  tpiinnion  / MA6SU8 \ 

ANGLE  / IS  /A/  S \ 

< S5°  ? ( GIVEN  ) 

\ CONSTANT  / NO 


OUTSIDE  TRUNNION  LIMIT 


load  desired 

SHAFT  ANGLE 


< A <0 

POSITIVE  SHA^FHv  ? ^ 

N^Y 

MAKE  LIMI“ 

+S9  DEGREES  m 


-A  + 5.5  DEGS 


, NEGSHAFT) 


NEGATIVE 
SHAFT  angle 


MAKE  LIMIT 
-85  DEGREES 


I SHAFTLIM) 


-A  -I-  2 0.  5 DEGS 


MAG  SUB 
IS  /A/  £ 
GIVEN 
C O N S TA  N T 


RRLIMOK 


OUTSIDE  SHAFT  LIMITS 


WITHIN  LIMITS  OF  MODE  1 
EXIT  TO  RRLIMCHK 
CODING  AND  se-t  3 


RETURN  VIA/ 

\ L 7 


RETURN  TO  se+Z 
NOT  WITHIN  LIMITS 
OF  MODE  1 


Anxio 

CUIMNCE  MM)  NAVICATION 


P20, PZZ 

RENDE2V0US  & LUNAR  SURFACE 
NAVIGATION 


luminary  1 


DOCUMENT  NO. 


FC-3G00 


SHEET  34  0»  103 


5'JBHO'JTINE  TO  DESIGNATE  IF  DESIRED 
ANGLES  ARE  '/VITHIN  EITHER  RR 

antenna  mode 


CALLING  SEDUENCE 
^ + 0 CALL  RRDES3M 
+ 1 NO  RETURN 

t.*Z  LOS  NOT  IN  MODE  Z ON  LUNAR  SURFACE 
VEHICLE  MANEUVER  REQUIRED 
Z +4  NO  MANEUVER  REQUIRED 


YES 


(IF  PEE  INPUT  MODE  IS  E) 
RETURN  TO 


COUTRIG 


'COMPUTE  SINES' 
AND  COSINES  OF 
IMU  ANGLES 


SAVE  RETURN 
IN  DESRET 


RADAR  TARGET  IN 
SM  COORDINATES 


COMPUTE  SINES 
AND  COSINES  FOR 
*5MNB*  ROUTINE 


\FC-  33  20 


'RMODINV 
INVERT  RR 
'ANTENNA  MODE' 
(bit  12  OF 
RADMODES) 


MPAC;*-  RRTARGET^ 

! 

»SMNB» 


TRANSFORM  FROM' 
SM  TO  NB 
COORDINATES 


RETURN 

TOX+3 


OUTSIDE 

LIMITS 


OF  BOTH 
MODES 


' RRLIMCHK 
TEST  limits 
OF  RR  ANTENNA 
MODE 


input:  MODES - 

GIMB^L  ANGLES 
TEST  LIMITS  IF 
REMODE  TOOK 
PLACE 


. FC-  3 3 20 


RRANGLE5 
^COMPUTE  POSSIBLE 
GIMBAL  ANGLES  TO 
SIGHT  TARGET 
FOR  BOTH  MODES 


SH37 


'RMODINV 
INVEFTT  RR 
'ANTENNA  MODE 
(BIT  12  OF 
RADMODES) 
SH4fe/ 


5H29/ 

INSIDE  LIMITS  OF  OTHER 
MODE 


'RRLIMCHK' 


INPUT:  MPAC^=TAP&ET 
IM  SM  COORDINATES 
OUTPUT:  MPAC^=TARGET 
VECTOR  IN  NB 
COORDINATES 


INPUT:  MPAC^=  TARGET 
VECTOP  IN  NB 
COORDINATES 
OUTPUT:  MODE  A-SIMBA! 

Angles  for 

CURRENT  MODE 
MODE  B- 'OTHER 
MODE 

ERROR  RETURN 


IMBAL 


ouraoc/ 


SET  BIT  14 
OF  RADMODES 


UNITS 


REQUEST 

REMODE 


'TEST  LIMITS 
RR 

• ANTENNA  MODE  / 


5H29/ 


INPUT:  MODE  A- G 
ANGLES 


(^nodessm) 


RMODINV 
INVERT  RR 
' ANTENNA  MODE 
(BIT  12  OF 
RADMODES) 
SH44./ 


RETURN  ANTENNA  MODE 
BIT  TO  ORIGINAL  VALUE 


INSIDE  LIMITS  OF  CURRENT  MODE 


NEXT  SHEET 


OESRH 
1*DESRET| 


SH 


MIT 

INSimMENrMKM  LAI 

CAmma,  mass. 


urnksi 


•Ml±L 


60tl 


AfOLLO 

Mtt  WVIGATiON 


P^O,P^^ 

RENDEZVOUS  ^ LUNAR  SURFACe 
NAVIGATION 


LUMINARY  ID 


DocuMmr  NO. 

FC-3600 


KV  2 


1 SHBT  35  OF 


L03 


IS  \ 
RNDVZFL& 

. SET  ? ^ 


ENDOFJOe 


FROM  PRECEDING  SHEET 


(STARTDES  + 1 ) 

DESIGFLG 


REQUEST  DESIGNATE 


TEST  MONITOR  REPOSITION  IN  PROGRESS 


_YES^/ REPOS  MON 

\ 


/setrrecrX 

SET  UP  RR 
ERROR 
COUNTERS 
VFC-3Z10  7 


SURFFLAG 
\ SET  ^ 


\WAITUST  task/ 
/ IN  2 C5EC  \ 


SCHEDULE  TASK  TO  CHECK  DESIGNATE 
REQUESTS  AND  INITIATE  DESIGNATI'N 


NORDSTAL 


RADCADR-<-—  0 


, DESRET  RN 


/ IS  \ 
RADCAOR 


TEST  FIRST  PASS 
THRU  DESIGNATE 


RETURN  VIA 
\ OESKET  / 


AfOUO 

CUIDMIOC  m MKIMTION 


P20,  PZZ 

RENOEZVOUS<E  LUNAR  SURFACE 
NAVIGATION 


•OCUMENT  NO. 


FC-3GOO 


SWHT  3^  OF  103 


LUMINARY  iD 


SUBROUTINE  TO  FIND  BOTH  (^RRANGLES 

GIMBAL  ORIENTATIONS  ATWHICH  V J 

RR  UIGHV  SIGHT  THE  TARGET 

INPUT:  (vlPAC^-  HALF-UNIT  TARGET  I 

VECTOR  IN  MB  COORDINATES  PL3Z  MPAC  STORE  INPUT  TARGET  VECTOR 


PRESENT  mode 
MODE  Bp  - angles  FOR 
OTHER  MODE 


SET 
PUSHLIST 
TO  Z.ERO 


— V MODE  1 TRUNNION 

MPACp  — SIN  ^340^)  t(i)  = ARC5IN  (-Y  COMPONENT) 


j PLOp  MPACp  STORE  Tl)  IN  FU5HL15T 


mode  Z TRUNNION 

PL4p-^ .5-MPAOc,  t(2')  = ISO^-TCi) 


MPACy-^ — UNIT(PL3^^)  iM  x-Z  PLANE 


UNIT  PROTECTION  OF  INPUT  VECTOR 


LOS  NOT  IN  MODE  2. 


TEST  FDR  GIMBAL  LOCK  OF  RR 


ON  LUNAR  SURFACE  ^ (TARGET  VECTOR  ALONG  Y-AXIs) 


LUWDESCH 

. SH3(i  ^ 

PL32^-^ MPAC^  STORE  PROJECTION  VECTOR 


STORE  X COMPONENT 


FOR  ARCTRIG  ROUTINE 


SZ 

OPRET 


SAVE  RETURN 

IN  sa 


COSTHp  — PL3fepZ'^ 


STOKE  Z COMPONENT 
FOR  ARCTRIG  ROUTINE 


COMPUTE 
MODE  1 SHAFT 
S(l) 


/ ARCTRIG 

SOLVE  FOR 
ANGLE 

rpc-  3 3^ 10 


INPUT:  SINTHpp-SiNX 


COSTHpp-COSX 
OUTPUT;  MPACr>c-  ANGLE  X 


PL2-  MPACj,  STORE  S(l)  IN  PUSHLIST 


next  sheet 


MIT 

INSTRUMENrATION  LAB 
CAMIttKC.  MASS. 


APOLLO 

QUftAHCE  AM  NAVfCATfON 

PZO,  PZZ. 

RENDEZVOUS  ^ LUNAR  SURFACE 
NAVIGATION 

LUMINAR  Y ID  I W3CUHIW  NO. 

FC-3600 

KV  2 I SHEET  3 7 Of  103 


FROM  PRECEDING  SHEET 


i MODE  e SHAFT 

S(z)=l&0“+  S(l) 


LOAD  MODE  2 ANGLES 

WPAC^-— PL4^  TUXsC^) 


/ 2V1STOZ5  \ 
' CONVERT  2 
COMPONENT 
VECTOR  TO  2*5 
. COMPLEMENT 


OUTPUT;  MPACp  - T(2),  5(z)  COU  ANGLES 


MODEB„  -» MPAC„  STORE  CDU  ANGLES 


LOAD  MODE  1 ANGLES 

MPAC,-^— PLO^  T(1),S(1) 


/ gvisToes  \ 

' CONVERT  2 ' 
COMPONENT 
VECTOR  TO  Z'S 
COMPLEMENT 
\fC-3150  y 


OUTPUT  MPACp  -Tfl),S(l)  CDU  ANGLES 


MODEAp  -• MPACp  STORE  CDU  ANGLES 


/ IS  \ 

ANTENFLG 
\SET?  / 


TEST  PRESENT  RR 
ANTENNA  MODE 


— EACHANGE  MODEA  ANGLES 

MOOEAp  MODES;,  mODEB  ANGLES 


'^RETI 
\ VIA 


RETURN 
VIA  S2 


im 

nKItMKMMWM  IM 
CMiailM,  MMS. 


, A.C.VJILLIAMS 


AfOUO 

SMMNCE  AM  MVIGATION 


P20,  P22 

RENDEZVOUS  E LUNAR  SURFACE 
NAVIGATION 


LUMINARY  ID 


AtV  2 


SHEET  3 8 OF 


FROM 

PRECeOfN&  PAGE 


NEXT  SHEET 


L 


MIT 

IPfSTffUMENTATION  LAB 
CAMWIDa.  MASS. 


BAAWI  {7. 


AflAtST^ 

WCMA_^ 


AraiO 

WtMffCt  mm  NAVIGATION 


PEO,  PZZ. 

RENDEZVOUS  5 LUNAR  SURFACE 
NAVIGATION 


ILUMINARY  ID  r 


DOOJMENT  NO. 

FC-3600 


NCV  2 


I SNEET  40  Of  103 


FROM  PRECEDING  SHEET 


' » 5MNe.*N 
TRANSFORM  ' 
; FROM  SM  TO  HB 
\COORDINATES/ 
VFC-33ZO 


INPUT;  MPAC^-TARSET  IN  5M  COORDINATES 
OUTPUT;  MPAC,-TARGET^  IN  NB  COORDINATES 


(^DONBRD^ 


PL3Z^ 


-MPAC„ 


STORE  LOS  TARGET, 


MPAC-* — TANG  +1 


LOAD  SHAFT  CDD  ANGLE  (g) 


XDULOGIO 
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' ALARMN 
R1-52T 
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LEMCONIC 

FC-3350 

LM  ORBIT  INTEGRATION 

Sli.22 

j LOADTIME 

FC-3150 

LOAD  PRESENT  TIME  INTO  MPAC^j 

Sli.  18, 
20,24,31 
50, 84. 85 

MAKECADR 

FC-3060 

CONSTRUCT  CADR  OF  RETURN  ADDRESS 

SII.24 

MINIRECT 

FC-3350 

UPDATE  CSM  TEMPORARY  STATE  \ ECTOR 

SU.14 

PRIOCHNG 

FC-3030 

CHANGE  PRIORITY  OF  JOB  IN  EXECUTION 

SU,3.  17 

1 1^ADSTALL 

FC-3220 

WAIT  FOR  COMPLETION  OF  RADAR  ROUTINE 

SIl.30, 

31,  59 

RESTORDB 

FC-3440 

SET  DEADBAND  TO  ASTRONAUT  SELECTED  VALUE 

SH.3, 26 

R02  BOTH 

FC-3220 

IMU  STATUS  CHECK 

sn.i5 

R60LEM 

FC-3420 

PERFORM  AUTO  ATTITUDE  MANEUVER 

SH.26 

SETMINDB 

FC-3440 

SET  0.3°  RCS  DEADBAND 

S1I.26 

SETRRECR 

FC-3210 

SET  UP  RR  ERROR  COUNTER 

SH.36 

STOPRATE 

FC-3430 

ZERO  INPUTS  TO  AUTOPILOT 

SI1.3 

MEANING  WHEN  SET 


FLAGS 


MEANING  WHEN  CLEAR 


IMUSE 

FLAG0BIT8 


INTYPFLG 

FLAG3BIT4 


LMCX3NFLG 

FLAG8BIT11 


LOKONSW 

FLAG0BIT5 


LOSCMFLG 

FLAG2BIT12 


LRVELFLG 
FLAG  12  BIT  8 


IMU  IN  USE 


CONIC  INTEGRATION 


PERMANENT  LM 
STATE  IN  LUNAR 
SPHERE 


RADAR  LOCK -ON 
DESIRED 

LINE  OF  SIGHT 
BEING  COMPUTED 

LR  VELOCITY  DATA 
FAIL 


IMU  NOT  IN  USE 


ENCKE  INTEGRATION 


PERMANENT  LM  STATE 
IN  EARTH  SPHERE 


WHERE  WHERE  WHERE 
SET  CLEARED  TESTED 


SH.  15 


Sll.  '2i\  -tl 
30,45,  46 


SH.2,3.33  Sll,  3!).  46 
40 


SH.2,3,33 

40,43,49 

SH.  39.  46 

SH. 12,20, 
21,  72. 80 

SH,  80 

Sll.  12,20, 

SH,  12,  20, 
21,  73,  80 


RADAR  LOCK-ON  NOT 

SI1.30, 

SH,  30,  85 

SH.42 

DESIRED 

31 

LINE  OF  SIGHT  NOT 

SH.49 

SH.  15.  31, 

sn.22.  43 

BEING  COMPUTED 

32, 43. 84 

NO  LR  VELOCITY  DATA 

SH.  63 

SH.  94 

FAIL 

MIT 

IMIWMMrMHM  IM 
CHWWIKt.  MASS. 


APOUO 

eUlBAMZ  urn  NMI6ATI0N 


P20,  P ZE 

RENOEHVOUS  ^ LUNAR  SURFACE 
N A VIGATIO 


LUMINARY  ID 


FLAGS  (CONTINl'EO) 


WHE  RE 

WHERE 

WHERE 

NAME 

MEANING  WHEN  SET 

MEANING  WHEN  CLEAR 

SET 

CLE.YRED 

TESTED 

NORRMON 

BYPASS  RR  GiMBAL 

PERFORM  RR  GIMBAL 

SH.28, 

SH.  15,28 

FLAG5BIT4 

MONITOR 

MONITOR 

85 

31 

NOUPFl.AG 

NEITHER  GSM  NOR  LM 

EITHER  STATE  VECTOR  MAY 

SH.  10 

SH.  56 

FLAG1BIT6 

STATE  VECTOR  MAY  BE 
UPDATED 

BE  UPDATED 

PDSPFLAG 

P2  0 SETS  SO  AS  TO  TURN 

LEAVE  AS  NORMAL  DISPLAY 

SH.26 

SH.26 

FLAG4BIT12 

A NORMAL  DISPLAY  INTO 
A PRIORITY  DISPLAY  IN 
R60 

P25FLAG 

P25  OPERATING 

P25  NOT  OPERATING 

SH.2 

SH.2, 

FLAG0BIT9 

24 

RC  DU  FAIL 

RR  CDU  FAIL  ILYS  NOT 

RR  CDU  FAIL  OCCURRED 

SH.  66, 

FLAG12BIT7 

OCCURRED 

68,  71 

RCDUOFLG 

RR  CDU'S  BEING  ZEROED 

RR  CDU'S  NOT  BEING  ZEROED 

SH.  18. 

FLAG12BIT13 

54.  71 

HEMOOFLG 

REMODE  REQUESTED 

NO  REMODE  REQUESTED 

SH.33 

Sn.46 

SH.39, 

FLAG12BIT14 

OR  IN  PROGRESS 

OR  IN  PROGRESS 

47.  50 

RENDWFLG 

W -MATRIX  VALID  FOR 

W -MATRIX  INVALID  FOR 

SH.81 

SH.  5.  10 

SH.  13. 

FLAG5B1T1 

NAVIGATION 

NAVIGATION 

20,  73 

REPOSMON 

RR  REPOSITION  IS 

NO  REPOSITION  TAKING 

SH.36. 

FLAG12BITn 

TAKING  PLACE 

PLACE 

43,  47 

RNDVZFLG 

P20  RUNNING  (RADAJI 

P2  0 NOT  RUNNING 

SH.  15 

SH.2 

SH.2, 

FLAG0B1T7 

IN  USE) 

10.  23. 
36.  54 

RNGSCFLG 

SCALE  CILVNGE  HAS 

NO  SCALE  CHANGE  HAS 

SH.  90 

SH.59 

SH.  60 

FLAG5BIT10 

OCCURRED  DURING  RR 

OCCURRED  DURING  RR 

HEADING 

READING 

RRNBSW 

RADAR  TARGET  IN  NB 

ILYDAR  TARGET  IN  SM 

SH.  33 

S1I.23, 35 

SH.40, 

FLAG0BIT6 

COORDINATES 

COORDINATES 

42 

RRRSFLAG 

RR  RANGE  READING  ON 

RR  RANGE  READING  ON 

SH.59 

sii.sn 

FLAG12BIT3 

THE  HIGH  SCALE 

THE  LOW  SCALE 

RVSW 

DO  NOT  COMPUTE 

COMPUTE  FINAL  STATE 

SH.  13 

FLAG7BIT0 

FINAL  STATE  VECTOR 

IN  TIME-THETA 

VECTOR  IN  TIME -THETA 

R04FLAG 
FLAGS BIT9 

Al.ARM  521  SUPPRESSED 

ALARM  521  ALLOWED 

SH.  15 

R61FLAG 
FLAG  1 BIT  10 

RI:N  R61  LEM 

RUN  R65  LEM 

SH.24 

SH.24 

S1I.27 

R77FLAG 

FLAG5B1T11 

R77  IS  ON 

R77  IS  NOT  ON 

SH.65 

SRCHOPTN 

RADAR  IN  AUTOMATIC 

RADAR  NOT  IN  AUTOMATIC 

SH.  40 

SIl.  15 

sn.  18, 

FLAG2BIT14 

SEARCH  OPTION  (R24) 

SEARCH  OPTION 

43,  49 

STATE FLG 

PERMANENT  STATE 

PERMANENT  STATE 

SH.20. 

FLAGS  BITS 

VECTOR  UPDATED 

VECTOR  NOT  UPDATED 

72. 73. 80 

SURFFLAG 

LM  ON  LUNAR  SURFACE 

LM  NOT  ON  LUNAR  SURFACE 

SIl. 5. 

FLAG8BIT8 

18.20,21 
36,  81 

TRACKFLG 

TRACKING  ALLOWED 

TRACKING  NOT  ALLOWED 

SH.  15 

SH.2 

SH.2, 

FLAG  1 BITS 

17.  24, 
54. 5 5 

UPDATFLG 

UPDATING  BY  MARKS 

UPDATING  BY  MARKS  NOT 

SH.  15 

Sll.^ 

SH.56 

FLAG1BIT7 

ALLOWED 

ALLOWED 

VEHUPFLG 

CSM  STATE  VECTOR 

LM  STATE  VECTOR  BEING 

SH.ll 

SH.ll 

SH.20. 

FLAG1BIT8 

BEING  I'PDATED 
1 

UPDATED 



75,  78,  79 

LUMINARY  J.D 


FLAGS  (CONTINUED) 


NAME 

MEANING  WHEN  SET 

MEANING  WHEN  CLEAR 

WHERE 

SET 

WHERE 

CLEARED 

WHERE 

TESTED 

VTNTFLAG 
FLAGS  BITS 

CSM  STATE  LECTOR  BEING 
INTEGRATED 

LM  STATE  VECTOR  BEING 
INTEGRATED 

SH.20, 
21,  72.80 

SH.  12,20. 
72, 73.80 

V67FLAG 
FLAG  7 BIT  8 

ASTRONAUT  OVERWRITE 

W -MATRIX  INITIAL  VALUES 

ASTRONAUT  DOES  NOT 
OVERWRITE  W -MATRIX 
INITIAL  VAI-UES 

SH.5 

SH.6 

sn.5 

SAXISFLG 

FLAG5BIT6 

MANEUVER  SPECIFIED 

BY  THREE  AXIS 

MANEUVER  SPECIFIED 

BY  ONE 

SH.26 

DISPLAYS 

VERB- 

NOUN 

TYPE  OF 
DISPLAY 

WHERE 

DESCRIPTION  OF  EACH  REGISTER  j EXECUTED 

V06N99 

FLASHING 

R1  - WWPOS  - XXX.  XX  NAUT.  MI.  - RMS  POSITION  ERROR 

R2  - WWVEL  - XXX. XX  FT/'SEC  - RMS  \ ELOCITY  ERROR 

SH.  4 

V04N06 

FLASHING 

R1  - OPTIONl  - 00012  - OPTION  CODE  FOR  ASSUMED  CSM  ORBIT 

R2  - OPTION2  - OOOOX  1 - CSM  WILL  NOT  CHANGE  ORBIT 

2 - CSM  WILL  CHANGE  ORBIT  TO  PASS 

OVER  PRESENT  LM  POSITION 

SH.  11 

V06N3S 

FLASHING 

R1  XXX.  HRS 

R2  TIG„  - XX.  MIN  ESTIMATED  TI.ME  OF  LAUNCH 

R3  XX.  XX  SEC 

SIl.  12 

VT6N80 

PRIORITY 

FLASHING 

R1  - DATAGOOD  - XXXXX.  - DATA  INDICATOR  RADAR  SEARCH 

R2  - OMEGAD  - XXX.  XX  DEG.  - OMEGA  PAR.AMETERS 

SH.  4n 

V06N05 

PRIORITY 

FLASIUNG 

R1  - DSPTEMl  - XXX.  XX  DEG.  - ANGULAR  DIFFERENCE  BETWEEN 

RR  AND  ST.ATE  VECTOR  LOS 

SH.  55 

V06N49 

PRIORITY 

FLASHING 

R1  - DSPTEMl  -XXXX.XNAUT.  MI.  - DELTA  R EXCESSIVE 

R2  - DSPTEMl+2  - XXXX.X  FT  SEC  - DELTA  V UPDATE 

PAREMETERS 

R3  - WHCHREAD  - XXXXX.  - R.ADAR  SOURCE  CODE 

SH.  58 

1 

ALARMS 


514 

520 


MEANING 


201 

SWITCH  RR  MODE  TO  AUTOMATIC 

SH.  17 

205 

PERFORM  MANUAL  ACQUISITION  OF  RR 

SH.28 

501 

RADAR  ANTENNA  OUT  OF  LIMITS 

S11.28 

503 

RADAR  ANTENNA  DESIGNATE  FAIL 

SH.  so 

RR  GOES  OUT  OF  AUTO  MODE  WHILE  IN  USE 
RADARUPT  NOT  EXPECTED  AT  TIUS  TIME 


ISEIJ 


SH.  17 
SH.  64 


ERASABLE  LOCATIONS  USED 


RDOTM 

TANGNBq 

RRTRUN 

RRSHAFT 


RM 

RRBORSITy. 

RRTARGET, 


GSOP 

SYMBOL 

MEANING 

RADAR  RANGE  RATE 

RR  TRUNNION  AND  SHAFT 

ANGLES 

®M 

RADAR  TRUNNION  ANGLE 

^M 

RADAR  SHAFT  ANGLE 

ENGINEERING 

UNITS 


METERS/SEC  | METERS  CSEC 


DEGREES 


RADAR  RANGE 

RR  LINE  OF  SIGHT  VECTOR 

STATE  VECTORS  LOS  TO  CSM 

RELATIVE  VELOCITY  BETWEEN 
LM  AND  CSM 


DIRECTION  VECTOR  TO  CSM 


DEGREES 

DEGREES 


METERS 


REVS 

REVS 


METERS 


bQ,bj,b2  GEOMETRY  VECTORS 


METERS.  SEC  METERS.'CSEC 


SEE  TABLE 


MEASURED  DEVIATIONS 


MEASUREMENT  ERROR 
VARIANCES 


SEE  TABLE 
SEE  TABLE 


RANGE  RATE 


MCXIN 


M^/ 

CSEC 

.,30 

M.' 

CSEC 

2^ 

M 

SHAFT  & TRUNNION 


EARTH 


UNITS 

UNITS 

9 

M"/ 

CSEC" 

2« 

9 

M“ 

9 

M*'  ' 
CSEC 

228 

M 

M/ 

CSEC 

9 

2“ 

- 

o40 


* Scaling  is  variable.  Depending  on  magnitude  of  b^  and  b 


MIT 

USTMMaMTMM  LM 
OMMIM.  MMS. 


Arauo 

CUIMNQ  NAVICATKM 


state  Vector  Extended  Verbs 


Major  Subroutines  on  This  Chart 


Extended 

Verbs 

66 

ATTACHED 

Sh.  2 

80 

LEMVEC 

Sh.  3 

81 

CSMVEC 

Sh.  3 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOaO  GUIDANCE  AND  NAVIGATION 

DRAWN  ,-x^ 

BRIN 

STATE  VECTOR  EXTENDEI 
VERHS  

PRGMR 

ANALST  r. 

1 DOCUMENT  NO. 

I.TTMINA  l?Y  ID  j i.'C-3605 

OOCMR 

APPR'D-i?»Wu<h^.f..tA. 

REV  3 (SHEn  1 OF  i 

FXTENDEP  VERB 


(attach  tT^ 


I mtstalO 

TEST 
AVAILABILITY  OF 
INTEGRATION 


, FC-  5350 


PREVENT  ItSTE&RATlON  FROM 
CHANGING  STATE  VECTORS 
DURING  transfer 


PERMANENT  CSM  STATE  VECTOR 
IN  LUNAR  SPHERE 


1 

YES 

^ 

- OCT  51 

PERMANENT  CSM  STATE  .ECTOR 
IN  EARTH  SPHERE 


GENTRAN 
transfer  4E 

\AORD  BLOCK 
OF  DATA 
VFC-305C! 


INDEX  FOR  4a  LV'RDS 


TPUT:  RRECTOTH  -m RF  ECTHIS 

CSM  STATE  VECTOR.* LM  STATE  /F“r>; 


ALLOW 

INTER- 

RUPTS 


r 


PT.-jaLEM 

transftr  \ja 

PBRMAUFNT  STATE 
VECTOR  TO 
TtMP.  5T0RASE 
vFC~3250 


KiCXT  SHEET 


miT 

immtmmmm  im 

CMMifMC.  mm. 

mmm  a-c  williams 

SOMAWl 

ioliUCli 

«MLST  ^ 

gecMi  Pf'C- 

CTfUmi^ 

'TTl. 

MUO 

mm  mttwtm 


STATE  VECTOR  EXTENDED 
VERBS 


UlMINARV  ID 


acv  3 


Mcumrw. 

FC-3G05 


or  4 


FROM  PRECEDINS  SHEET 


/ SVIWNl  \ 

/ COMPUTE  AND  \ 
STOKE  STATE  VECTDRy 
\ FDR  CCWHLINK  / 
\rc-3350  7 


OUTPUT;  R-0'mER^=  POSITION  VECTOR 
V-OTHER^=  VELXITY  VECTOR 


qPRET 

TCPINAD 


LOAD  EXIT  FOR 
INTWAKE  ROUTINE 


/ INTWAKE  \ 
' RELEASE  SKAB 
OF  INTESKATION 
\fC-5550  / 


PINBRNCH  / TERMINATE  EXTENDED  VERB 


EXTENDED  VERB 

60 

EXTENDED  VERB 

61 

V80E  keyed  in  (lemvec^ 

V61E  KEYED  IN  (^CSMVEC^ 

BY  ASTROMAUT  ^ ^ 

.. J 

BY  ASTROWAUT  ^ 

CLEAR 

LM  STATE  VECTOR 

SET 

CSM  STATE  VECT 

VEHUPFLG 

BEINS  UPDATED 

VEHUFFL3 

BEING  UPDATED 

NOUPCDWN 


CLEAR  ALLOW  57ATF- 

NOliHrLA.-o  VECTOR  UPPATE^ 


GOPIN  / TERMINATE  EXTEMCFl  VERB 


»)T 

mnmMNrwMN  im 

CMMtttaC,  MASS. 

I A.C. WILLIAMS 




AIQUjO 

OMMfla  Mi  NMftCATKM 

state  ' 

ECTOR  EXTENDED 
VERBS 

LUMINARY  ID 

DOCUMENT  NO. 

FC-  3G05 

SUBROUTINES  CALLED  WmCH  ARE 
FLOWED  ON  OTHER  FLOW  CILMITS 


SUBriOUTINE 

NAME 

FLOW 

CHART 

DESCRIPTION 

\V}-EEKE 

CALLED 

GENTRAN 

FC-3050 

TRANSFER  BLOCK  OF  WORDS  IN  STORAGE 

Sil.  2 

INTSTALU 

FC-3350 

TEST  AVAILABILITY  OF  INTEGRATION,  GRAB  IF 
AVAILABLE 

SIL  2 

IN  T WAKE 

FC-3350 

RELEASE  GRAB  OF  INTEGRATION 

SH.  3 

PTOALEM 

FC-3350 

TRANSFER  LM  PERMANENT  STATE  VECTOR  TO 
TEMPORARY  STORAGE 

SH.  2 

SVDWNl 

FC-3350 

COMPUTE  AND  STORE  STATE  VECTOR  FOR  DOWNLINK 

Sir.  3 

FLAGS 


NAME 

MEANING  WHEN  SET 

— 

MEANING  WHEN  CLEAR 

WHERE 

SET 

WHERE 

CLEARED 

WHERE 

TESTED 

CMOONFLG 

FLAG8BIT12 

PERMANENT  CSM  STATE 
VECTOR  IN  LUNAR 
SPHERE 

PERMANENT  CSM  STATE 
VECTOR  IN  EARTH  SPHERE 

SH.  2 

SH.  2 

LMOONFLG 

FLAG8BIT11 

PERMANET  LM  STATE  . 
VECTOR  IN  LUNAR 
SPHERE 

PERMANENT  LM  STATE 
VECTOR  IN  EARTH  SPHERE 

SH.  2 

NOUPFLAG 

FLAG1BIT6 

DO  NOT  ALLOW  STATE 
VECTOR  UPDATES 

ALLOW  STATE  VECTOR 
UPDATES 

SH.  3 

VEIIUPFLG 

FLAGIBIT8 

CSM  STATE  VECTOR 
BEING  UPDATED 

LM  STATE  VECTOR 

BEING  UPDATED 

SH.  3 

SIL  3 

MIT 

INSItUMENrATIOM  LM 
CAMMIDa,  MASS. 


A^^ILLIAM?  LMAYfeSl 


ANUO 

GVIBAMZ  AMO  NAWICATION 


state  vector  extemoed 

VERBS 


GROUND  TRACK  DETERMINATION 
PROG  21  Sh.  2 


MIT  IflSI'J.V.cMATlCN  1A5 
CAM'J.TICCE.  MASS. 


O.IAW.'i  O, 


Ground  Track  Determination 


__  C' 


ccrj.-;:;:  f.3. 

7-  LUMINARY  ID  FC-3610 



2 


Time  at 
which 
lat.  and 
long,  of 
vehicle 
is  de- 
sired 


From  Preceding  Sheet 
(^>21PRO^ 


TDEClj^-^ 

— MPACq 

^ 

L 

/INTSTALLX 
/'  Test  X 
/ Availability  of 
\ Integration 


\FC-3350  / 


P21CONT 


Clear  DIMOFLAG 
Clear  MOONFLAG 


Is  \ 
/P210RIG 
= 0? 


//  Is  \ 
P21FLAG 
\ Set?  ^ 




No 

Set  { 

VINTFLAG  j 

— 

Clear LM  state 

VINTFLAG  vector  being 
integrated 


/ Is  \ 
OPTION2 


Clear  DIMOFLAG 
Clear  INTYPFLG 


/INTEGRVS 

Integrate 
state  vector 


FC-3350 


Set  Moon  is  sphere 

MOONFLAG  of  influence 


' INTEGRV 

Integrate 
state  vector 


\ FC-3350  / 


Next  Sheet 


MIT  IliSTni.. 
CAM  3 r:  ID 


APOLLO  GUIDANCE  AMD  MAVIGA;  IC,'I 


Ground  Track  Determination 


iLUMINARY  ID  FC-3610 
L’EV  2 1^  'J  ^_'cL6_ 


From  Preceding  Sheet 


P21VSAVE 


P21TIME^ 
P21BASER^ 
P21BASEV^ 
P21VEL^  < 


-RATTl^ 
-VATTl^ 
I VATTl, 


P21GAM, 


P210RIG 


UNIT(RATT^)-  VATT 
P21VEL^ 


Is 

OPTION2  

. =1?  / No 


Is  \ 
SURFFLAG 


Set  1 

Use  base  vectors 

^P21F^G  j 

^ 

V 

already  calculated 

(^P21DSP  ^ 

Clear 

LUNAFLAG 

\' 

Next  Sheet 

Earth  LAT-LONG 

MIT  |•i5TF;L^^•£f.TATICM  U3 
cav3.ti;g-,  mass. 


APCUO  CUIDAMCt  AND  N.WICO.nC-'l  1 

j Ground  Track 

De  te  rm  ination 

1 

1 LUMINARY  ID 

1 

ccciJciMi  :.o. 

FC-3610 

Ct  6 


From  Preceding  Sheet 


SUBROUTINES  CALLED  ON  OTHER  FLOWCHARTS 


Subroutine 

LOADTIME 

INSTALL 

INTEGRV 

INTEGRVS 

LA T- LONG 


Flowchart 

FC-3150 

FC-3350 

FC-3350 

FC-3350 

FC-3330 


Where  Called 

Sh.  2 

Sh.  3 

Sh.  3 

Sh.  3 

Sh.  5 


Flags 

Meaning  When  Set 

Meaning  When  Cleared 

Where 

Set 

vVhere  Where 
Cleared  Tested 

DIMOFLAG 
Flag  3 Bit  1 

W Matrix  is  to  be 
used 

vV  Matrix  is  not  to 
be  used 

Sh.  3 

ERADFLAG 

Flag  1 Bit  13 

Compute 

Fischer  ellipsoid 

Use  constant 

pad  radius 

Sh.  5 

INTYPFLG 
Flag  3 Bit  4 

Conic  integration 

Encke  integration 

Sh.  3 

LUNA FLAG 
Flag  3 Bit  12 

Lunar  Lat-Long 

Earth  Lat-Long 

Sh.  5 

Sh.  4 

MOONFLAG 
Flag  0 Bit  12 

Moon  is  sphere  of 
influence 

Earth  if  sphei-e  of 
influence 

Sh.  3 

Sh.  3 

P21FLAG 

Flag  0 Bit  11 

Use  base  vectors 

already  calculated 

1st  pass  - calculate 
base  vectors 

Sh.  4 

Sh.  3 

SURFFLAG 
Flag  8 Bit  8 

LM  on  lunar  surface 

LM  not  on  lunar 
surface 

Sh.  4 

VINTFLAG 
Flag  3 Bit  3 

CSM  state  vector 
being  integrated 

LM  state  vector 
being  integrated 

Sh.  3 

Sh.  3 

P25  PREFERRED  TRACKING  ATTITUDE 
MAJOR  SUBROUTINES  ON  THIS  CHART 


PROG2  5 Sh.  2 


MIT  INSTRUMENTATION  LAB 

CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Preferred  Tracking 

Attitude 

DRAWN  /,  ; y.  -,/' 

PRGMR 

WBSi 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3620 

ANALST 

DOCMR 

fho/a 

REV  3 ISHEn  1 OF  5 1 

Make  GROUP  4 inactive 


GROUP  2 

Restart  job  at  next 
instruction  with  prio  26 


' R02B0TH 
IMU  Status 
Check 

V FC-3220 


Raise  alarm  if  IMU  not  on 
and  aligned 


Set  TRACKFLG  Tracking  allowed 
Set  P25FLAG  P25  operating 

CleaxRNDVZFLG  P20  not  operating 


P25LEMlj 


' Set  up  restarts 
to  restart  next  loc 
with  same  priority 


Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


Preferred  Tracking 
Attitude 


LUMINARY  ID 


REV  3 


DOCUMENT  NO. 

FC-3620 


SHECT  2 OF 


From  Preceding  Sheet 




P25LMWT1 

L Sh.  4 J 

Test  P25FLAG 

No,  terminate  P25 


EIS 


ENDOFJOB 


7 


Test  TRACKFLG 


Yes,  tracking  is  allowed 


Wait  60  sec  and 
then  try  again 


R65CNTR 


R65LEM 

■^Maneuver  to 
tracking 
attitude 


FC-3600 


R65  will  run  8 times  at  6 second  intervals. 
Until  last  cycle,  R6  5LEM  goes  to 
ENDOFJOB 


Do  tracking  for  48  seconds 
(R65LEM  computes  the  tracking 
attitude  and  maneuvers  the 
LM  to  maintain  it) 


R65LEM  returns  here  only  after 
8^h  cycle  (approx.  48  seconds  later) 


^P25LMWT1 


\ 

L _ 

A < 60SEC 
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Ppj  - POS.  vector  of  passive  VEH  I CLE  AT  C5I 
t^-TlME  OF  CSX  MANEUVER 
■t  j- time  OF  TPi  maneuver 

DO  CONIC  INTEGRATION 


INTINT 


'CONIC  INTEGRATION' 
OF  PAS3VE  VEHICLE 
STATE  VECTOR  TO 
TPI  TIME 


INPiJTl  IGDpp,  140|3p,  lEDpp,  GDy  ,0D^,RTX1,RTXC 


vFC-3730 


PASSIVE 


RPASS3;,- 

VPASS3- 


-RATTy 

-VATTv 


STATE  vector  of  PASSIVE 
VEHICLE  AT  TPI 


\FC-3760 


CSI/A 


COMPUTE  CSl/COH 
MANEUVER  PARAMETERS 
ISSUE  ALARM  IF  NO 
.SOLUTION  CAN  BE  ATTAINED/ 


SHIP 


(p32/P7Eg) 


INP'JTI  RAai^VACTl^,RFASSly,VPASSl„UPl^RPAS53,yPAS33, 
TCCtpp,TIT\p,NN^,ELEV„,RTSRl>(ll^RTM4,p,Rrxl , RTXe 
OUTPUT:  DELVEETly  = AV  REQUIRED  AT  CSI 
DELVEETEy  = AV  REQUIRED  AT  CCH 
TlTOTEpp  = TlME  FROM  CSI  TO  COH 
T2 TOT  3 DP  = TIME  FROM  OE!  I TO  TPI 
OIFFALTdp  = ALTITUDE  BETWEEN  ACTIVE  AND 
PASSIVE  vehicle  orbits  AT  CDH 
RACTZy  = POSITION  OF  ACTIVE  VEHICLE 
AT  CDH 


SET  INDICATES  LAST  PASS  THRU 
RENDEZVOUS  PROGRAM  COMPUTATIONS 


ALLOW  P20  UPDATING 


(pse/PTEp)- 


■VI  r'AV.^Qp  ^ 1 1 1 

i 

TlTOT£„  AT,  time  FROM  CSl  TO  CDH 


TO  NEXT  PAGE 


i*rr 

MsnwMRmrraN  lm 
caMKirac,  MiKs. 


WAIIII  A.C.WILLIAMS 


AARIST 

»eciiw~  . 


A-2Z-<o94 


tfOUO 

mm  NAVIGATION 


P^Z  AND  PIZ 

CO-ELUPno  SEQUENCE  INITIATION 


LUMINARY  ID 


OOCUMINT  NO. 

FC-3720 


SI«T  4-  OF  2 7 


FROM 

PRECEDING  PAGE 


(P3Z/P72e) 


TITOTZ^MPACop 


MPACp-^TlT0TZpp-60MINj,p 


vMPACpp^  O 

INO 


SET  TIME  FROM  CSI  TO  COM  < feO  MIN. 


MPAc^rirors^J 


ATj  TIME  FROM  CDH  TO  TPI 


P3Z/P72F 

_L 

H 

T2T0T3p^MPACpp 

i WPACS^TZTOT3;jp  - 60  MIN^p 


SET  TIME  FROM  CDH  TO  TPI  < 60  MIN 


/ VNPOOH  \ 

I V06N75 \ 
DISPLAY  CSI/COH 

^ parameters  / 

\ FC-5740  / 

1 PROCEED 


R1  = DIFFALTpp  = ALTITUDE  BETWEEN  ACTIVE 


AND  PASSIVE  VEHICLES  AT  CDH  IN  NM, 
:TlT0T2jj=At  BETWEEN  CSI  AND  CO 
MANEUVERS  IN  MIN  AND  SEC. 


R3  = TZT0T3pp=  At  BETWEEN  CDH  AND  TPI 
MANEUVERS  IN  MIN  AND  SEC, 


MPAC;- DELVEETlJ  REQUIRED  AV  FO  R C S I M AN  EU  V E R 


TO  NEXT  PAGE 


«MT 

iNsnuMmraneN  iiw 

CWMIOeE,  MASS. 

mmm  a A 

DOCMA  

APfr»  n iL, 


AAOLLO 

BKHAWg  «M  WWICMKM 


P3Z  AND  P72 

APWl  CO-ELLIPTIC  SEQUENCE  INITIATION 
6Sili£  DOOMCNr  NO. 

^ LTtminARY  ID  FC“3T^20 
5 Isfinf  5 OF  £7 


FROM  PRECEDING  PAGE 


] 


SUBfXIT- 


-QPRET 


SAVE  RETURN  ADDRESS 


XI -« 

• VOfcN&l 

/ DISDVLVC  \ 

VOfcN&l  SET  UP  VERB-NOUN  FDR  DISPLAY 


CONVERT  AV  AT 
CSX  FROM  REF  TO 
, LV  COORDINATES  AND  / 
DISPLAY  VOONSl  , 


SHS 


PROCEED 


display  AV  AT  csi  IN  local  vertical  coordinates 

(CREW  MAY  CHANGE  AV  TD  CORRECT  FOR  OUT  OF.PUME  COMPONENTS) 
VOCNSl  INPUT:  MPAC„  = AV  AT  CSI 

Rl  = X COMPONENTOFAV  RACTI^^Tai 

RE«  YCOMPONENT  OFAV  UP1^=  UNIT  Xpi  x VpJ 

R3  = Z COMFDNENT  OPAV  XI  = VOGN81  FOR  DISPLAY 

OUTPUT.  DELVLVC,=  AV  IN  LOCAL  VERTICAL 
COORDINATES  (AVu,) 


532 /35.x 


SET  UP  MATRIX 
'FOR  LOCAL  VERTICAL\ 
TD  REFERENCE 
COORDI  NATE 
v TRANSFORMATION  , 


INPUT:  RACTl^,  UPl^ 

OUTPUT;  ODj^  = REFERENCE  TD  LOCAL  VERTICAL 
TRANSFORMATION 


5H9 


- AYlv 

DELVSIN^-- — DELVLVCv  0D„ 



DELVSAB^p  1 DP-VSIN^  1 

CONVERT  AV  FROM  LOCAL  VERTICAL 
TO  REFERENCE  COORDINATES 


AV  I MAGNITUDE  OF  AV 


MPACv-»— 

DElVSIN^ 

RETURN  VIA 
\ SUBEXIT  / 


1 

DELVEETl^  -« MPAC^ 

RACTl^  -A RACTEy 

MPAC.,  -» — DELVEETZv 
XI -• — V0GNS2 

AV„ 


NEW  VALUE  OF  AV  IF  MODIFIED  BV  CREW 
TO  CHANGE  OUT-OF-PLANE  COMPONENTS 


POSITION  OF  ACTIVE  VEHICLE  AT  CDH 
AV^^  REQUIRED  AV  AT  CDH 

VERB- NOUN  FOR  DISPLAY 


-CDH 


DISDVLVC 


DISPLAY  AV  AT  CDH  IN  LOCAL  VERTICAL  COORDINATES 


CONVERT  AV  AT 
CDH  FROM  REF  TO 
^LV  COORDINATES  AND/ 
DISPLAY  V0&N81 


VOGNSa 

R1  = X component  of  AV 
RE  = YCOMPONENTOF  AV 
R3  = ZCOMPONENT OF  AV 


INPUT;  MPAC^=AV  AT  CDH 

RAC.Tl,=  r*i 


UPi^--Mii!T'rpj^ . 


\ SH9  / 

1 

PROCEED 

TTPIO^p-a—  TTPI^ 

Xl=VOGN62  FOP, 
DISPLAY 


FOR  INPUTTO  P33 


TD  NrXT  PAGE 


MT 

WgmWBIIWTtOW  LM 
CliMmME.  MKS. 


BRAWN  A.O.WIU-IAMS 
PRQWR 
ANIH.ST 

Doaw 


AFFR‘1)  ^ 


A-O-Aa, 


m- 


apqujo 

AND  WWICATIOM 


P3Z  AND  P72 

CO-ELLJPnC  SEQUENCE.  INITIATION 


LUMINARY  ID 


DOCUMEKT  NO. 

FC-3720 


mu  3 


S«n  6 OF  27 


FROM  PRECEDING  PAGE 


SUBROUTINE 


SUBEXIT  -* 3PRET  SAVE  RETURN  ADDRESS 


tor  VlCkMS  DISPLAY  (middle  GIMBLE  ANG'  E if  /.hUTRARILY 

-mSApp  ■-«  -.01  displayed  as -.01  degrees  until  last  pass.) 


LAST  PASS? 


FINALFLG 
V SET?  / 


IF  IMU  I5N0TAUGNED  OR  TARGETTING  IS  BEING  DONE  FOR  THE 
OTHER  VEHICLE,  MIDDLE  GIM6AL  ANGLE  IS  ARBITRARILY 
DISPLAYED  AS  -.OB  DEGREES. 


IMU  ALIGNED? 


REFSMFLG 
V SET?  / 


/ PSX0RP7X  \ 

' TEST  TO  SEE  ^ 
IF  MAJOR  MODE 
, IS  A P3X  OR  P7X/ 


/ GETyM&A  \ 

/compute  mg  a'' 

AT  THRUSTING 
V ATTITUDE  , 


INPUT;  REOUIKEDAV 

RbFSMMAT  + Gv  = Y- AVIS  OF  STABLE  MEMBER 
OUTPUT;  +MGA  = IDSITIVE  MIDDLE  GIMBLE  ANGLE  (o'-SGCf) 


/ START  CLOKTASKN 
TO  CONTINUALLY 
\ COMPUTE  TTOGO  / 


OUTPUT;  TTO&0  = TIME  FROM  IGNITION  ('UPDATED 
EACH  second) 


■ SUBEXIT  TRANSFER  RETURN  ADDRESS 


WAIT  1 SECOND 

\fC-3050  / 


TD  NEXT  PAGE 

dWT 

inSTMMMMneN  LM 

cMMRnraE,  nAss. 

BRWW  A.C.WILLIAM5 

PROdW  

<M«U.ST~ 

BOOWt 

*WD  d. 


APOUO 

BUlWg  MW  NAVICATIQN 

PBB  ANDP72 

CO-ELLIPTIC  SEQUENCE  INITIATION 


LUIVIINARY  ID 


DOCUMENT  NO. 

FC-3720 

I SHEET  y OF  27 


FROM  PRECEDIWS  PAGE 


GOFUASH 


REOTCLE 


V16>N45 
MONITOR  NO.  OFMARKS. 
TFT  AND  M6A 


TERMINATE 


PROCEED 


( N45PR0C  ^ 


LAST  PASS  ? 


YES 


R1  - TRKMKCNT  = number;  OF  MARKS 
RZ-TTOGO=  TIME  FROM  IGNITION 
R3-  +MGA  = MIDDLE  GIMBLE  ANGLE 
AT  THRUSTING  ATTirjOE 


KILCLOCK 


GROUP 4 


I SET  UP  RESTARTS 
TD  SCHEDULE  THE 
NEXT  LOCATION  AS 
A JOB  WITH  OLD 
PRIORITY 


i 

DISPDEY  -< OD 

i 

STOP  CL0KTA5K 
COMPUTATION  OF  TTOGO 


GOTO  POOH  / TTRMIMATE  PROGRAM 


j^^^SET_FmALFL^ 


DO  LAST  PASS 


( CLUPDATE 


OISPDEX  -* OD 

STOP  CLOKTASK 
COMPUTATION  OF  TTOGO 


GROUP  4 


/SET  UP  RESTARTS 
TO  SCHEDULE  THE 
NEXT  LOCATION  AS 
A JOB  WITH  OLD 
PRIORITY 


INHIBIT  STATE 
VECTOR  UPDATES 


— 

— 

1 P32/PT2B  1 

END  OF  VN1G45  ROUTINE 


J 


SH3 


REPEKTTHE 

COMPUTATION 


miT 

MimMmmrraN  lm 

c/wmrKKK,  ffwss. 


pma*' 

AtfALSr' 


A.C.WILLIAMS 


i4-24-C^ 


POCWR 

APFR-D  7^ 


3 


APOUO 

OIHMMCI  AND  NMICATION 


P3^  AND  P72 

CO-CLLIPTIC  SEQUENCE  INITIATION 


LUMINARY  ID 


DOCIMCNT  HO. 

FC-3720 


SHEET  8 Of 


DISDVLVC 


DELVLVC,-* — MPAC, 

NORMEX  -« QPRET 

— 

— 

S32/33.X 


uNiT(-rAi  It) 

-UNITli. 

-UNIT  SET  UP  MATRIX 

FOR  REFERENCE  TO 

[odJ  PuNIt(raCJiJ)i(  URll  LOCAL  VERTICAL 

on  - AD  -4 IJPl  COORDINATE  TRANSFORMATIONS 

m'  ''  . 

120,  -UNIT(RACT1,) 


RETURN  VIA 
\ QPRET  / 


Ay,v  = MkfAv 

DELVLVC„-« 0D„  OELVLVC, 


CONVERT  AV  FROM  REFERENCE 
TO  LOCAL  VERTICAL  COORDINATES 


A-^Xl  VERB-NOUN  CODE  (VOCNSI  OR  VOfcNSe) 


LOAD  NEW  DATA 


/ VNPOOH  N 
DISPLAY 
VOfcNai  OR 
. V0AN8S  . 


TERMINATE 


R3-  DELVLVC  Z COMPONENT  OF  AV 


RETURN  VIA 
\ NORMEX  / 


GOTOPOOH 


iNSTMMnmrMN  lAt 
CMMimi,  MMS. 


AFOUO 

tMiaiwcE  mm  wwisation 


P32.  AND  P72 

CO-ELLIPTIC  SEQUENCE  INITIATION 


DOCUMENT  NO. 

FC-3720 


ADVANCE 


mOM  PRECE.OING  PAGE 


mn 

msmmmmtcitiM 

cmm\ML,  Mus. 

APOU0 

WMiwn:  m MvfCATfOii 

P3e  AND  FT2 

CO-ELLIPTIO  SEQUENCE  INITIATION 

DR/HM  A.C.YVIl-LIAMS 

CrA-^e, 

PIWW  f^LciLCU> 

MCUMENT  NO. 

LUMINARY  ID  pQ_3y20 

/WRIST  ^ 

imnw 

UiUA 

RIWB  y.  

i-7-a 

REV  3 1 ««T  11  Of  §7 

csi/a 


First  PASS  INDICATOR  for  newton  rapson  iteration 


53  = 1 FIRST  SEARCH 


CLEAR  CSI  NEWTON  ITERATION  COUNTER 
CLEAR  ALARM  INDICATER 


START  OF  SECOND  SEARCH  ■ 
IN  OPPOSITE  direction 

(from  suae) 


r e/u 


Z RTMUop 
I^^FIOPBZ 

RPASSJ^ 


,p]  IRACTI^I 


FIRST  GUESS  AT  MAGNITUDE  OF  TOTAL  VELOCITY 
REQUIRED  AFTER  CSI 

^VELOCITY  REQUIRED  TO  ACHIEVE  A RADIUS^ 
^EQUAL  TO  Tpj  IN  ^ 0R6IT  FROM  CSI  POINT/ 


DIRECTION  OF  REQUIRED  AV  AT  CSI 
(HORIZONTAL  AND  PARALLEL  TDTHE 
PLANE  OF  THE  PASSIVE  VEHICLE) 

/dP1  = (RPASSI  X VPASSl)  = UNIT  NORMAL 
I^PLANE  of  passive  VEHICLE  J 


DELVC5Ij^ODop-[vACTly*  MPAcJ 


MAGNITUDE  OF  REQUIRED  AY  AT  CSI 


NEWTON  RAPSON  - 
ITERATION  LOOP 


AVj  = 10 

OELDVpp-«—  INITST 

— F-{  csi/bT) 


DECREMENT  TO  ITERATIVELY  MODIFY  THE  INITIAL 
GUESS  AT  VELOCITY  REQUIRED  AFTER  CSI  UNTIL 
ALL  CONSTRAINTS  ARE  SATISFIED 

(iNiTST  = . 0304a  %s  (scaled  z"')  ) 

I = 10  'ysec  J 


LOOPCT^LOOPCT>1  INCREMENT  ITERATION  COUNTER 


INDEX  TO  alarm  CODE  TABLE.  *G  REFERS  TO  ALARM 
CODE  .OOGOS  = * OF  ITERATIONS  EXCEEDS  LOOP  MAXIMUM 


LOOPCT  > IS 


SCNDSOL 
SHSS  ^ 


NO  SOLUTION  after 
15  ITERATIONS 


TO  NEXT  PAGE 


«HT 

(MIMMMMrNNUM 

ClWHm.  MASS. 

8AMAW  A.C.WILLIAMS 

. ..  , 

DOOWI 

awed  d. 


ANUA 

CUIMMOE  AM*  WWICATION 

P3e  AND  PTE 

CO-ELLIPTIC  SEQUENCE  INITIATION 


LUMINARY  U3 



a 


MCUMCNTM). 

FC-3T20 

swn  Ic!  ~0f  ET 


FROM  PRECEDING  PAGE 


VVEC;-^VACT4^ 

RVEC-^RACTly 


SET  KVSW 


DO  NOT  COMPUTE  STATE  VECTOR  DURING 
TlME-THETA,  JUST  OBTAIN  SPEClREO  TIME 


® = 353.39°(=  1 ORBIT)  -THE  TRUE  ANOMALY  ANGLE 
I GSTII  ^0  PERIOD  tp 


OBTAIU  PERIOD 
(tp")  OF  NEW  ORBIT 

-37s5 


XI -* RTXl 


INPUT:  RVEC,  V VEC.SNTH,  CSTH,  RVSW,  X I 
output:  MPAC;3p=tp  CS 


■jMPACpp  ■'^NIE  BETWEEN  APSIDAL  CROSSINGS 


' COMPUTE  APOGEE  AND  \ 
PERIGREE  ALTITUDE 
ALSO  APOCBNTER 
> AND  PERICENTER  RADIUS  , 

\ FC- 3760  7 


input;  rueo,vvec,xi 

OUTPUT:  ECC=  ECCENTRICITY  OF  CONIC  TRAJECTORY 

(e')  (scaled  E-l 

MPAC=  perigee  ALTITUDE  AFTER  CSI 
R1  = I RVEC.^  I 

_ 5EMI-LATUS  RECTUM 
^ ■ R, 


Rpi  PERIGEE  ALTITUDE  AFTER  CSI  MANEUVER 


Ccentang  =0> 


IF  CENTANG  is  NOTIERO,  ASTRONAUT 
HAS  USED  iao°  OPnON. 


CIRCULAR 

ORBIT 


CSI  IS  AT 
AN  APSIS 


_e  •^000^ 
ECCi».< 

-^EIHIHep^ 


I RACTl',- VACT4^| 
\sNICKEU)p/ 


CIRCULAR  ORBIT? 


ONETHTH  = .OOOl  (scaled  'i?') 


IS  THE  VERTICAL  VELOCITY  (Vp'lATTHE  CSI  POINT 
less  than  7 'Tseo  ? 

NOW  CALCULATE  THE  ANGLE  f FROM  CSI  TO  THE 
NEAREST  PERIGEE.  THEN  COMPUTE  TIME  OF  FLIGHT- 
THERETO,  At, WHICH  IS  USED  TO  DETERMINE  Lcdh 

ECCENTRiaTY  x COS  OF  TRUE  ANOMALY  ANGLE 
(TRANSFER  ANGLE  FROM  CSI  TO  PERIGEE) 


TO  NEXT  fPAGE 


IMSnUMINrATION  lAI 
CAMMIOCt.  MASS. 


DAAWH  A.C.WILL 
"CM*  CWiixa 


AKUO 

SUIMMZ  AW  NAVIGATION 


P3B  AND  PTE 

CD-ELLIPnC  SEQUENCE  INITIATION 


LUMINARY  ID 


DOOWENT  NO. 

FC-3720 

[sheet  14  Of  E7 


FROM  PRECEDING  PAGE 


(^GSi/e>3  ') 


_ _ 

KDOTV^  RACr  V VACT4  ^ 


sinJ^=  IrAi-YAil 


Pi. 


12^1rdotv^|7popRV 


RTSRi/mUii 

Rlpp 


ECCEMTRICITr  X SIN  OF  TRUE  ANOMALY  ANGLE 
(TRANSFER  ANGLE  FROM  C5I  TO  PERIGEE) 


IGDn, 


/siNy'\  /eSINi" 

(cos  f - UNiTj  e cosi" 

/»£Ddp\ 

MPAC^-^  UNIT  MDpp 

\'“J 


UNITIZING  HAS  THE  EFFECT  OF 
DIVIDING  BY  S 


SNTHj;^> — SlN)^ 

t 

E 


cosy- 


XI- 


-RTXl 


I 


-sGN(rAi-y;,)y;. 

VVEC;^  -5GN  (RD0T^yA.CT4, 


MA.KE  y^i  POSITIVE  IF  iTs  verti:al  C jMFONEWT 

POINTS  DOV^'N,  NEGATIVE  IF  ITS  Vr^nOAL 
COMPONENT  POINTS  OR 

THIS  ENSURES  THATTHETME  OF  R.IG^^T  CALCU- 
LATED BYTIMETHET  WILLBr:  TC  THf  NEAREST 
PERIGEE. 

DO  NOT  UPI3ATE  STATE  VECTOR, 

JUST  COMPUTE  DURING  TMET><Er  ROUTINE. 


Rvec^= 

RACTl^ 

J 

TlMETMET 


'compute  At  THE  TIME 
OF  FLIGHT  FROM  THE 
CSI  POINT  TO  THE 
nearest  Perigee 


input:  csth, sntk, RVEC^ V\ EC, X 1, RVSW 
output;  mpac 


, FC-  33eO 


OD^p-e—  MPACop 

MPAC=  At 


* TIME  TILL  NEXT  PERIGEE.  IF  < 0 
^ TIME  Since  last  perigee,  ir  v..  > o 


TO  NEXT  PAGE 


MIT 

INSTKUMENTATION  LAt 

CAMMIBCE.  MASS. 

AAOUO 

eWMMX  m NAVICATHM 

Pse  AND  P^^ 

CO-ELLIFTC  SEQUENCE  INITIATION 

1 

hwma  fOMjLa^ 

■aaauaaagiaBBHmgBl 

M¥  3 1 SKETis  OF  27  | 

FROM  PRECEDING  PAGE 


FROM  SHI  3 


WAS  THE  LAST  APSIS 
BEFORE  csr  A PERIGEE  ? 


Vr  ^ 0 VES  (.At^TlME  SINCE  LAST  PERIGEe) 


NO  (apogee) 


At  = - At 


TIME  SINCE  LAST  APOGEE  = -A-  PERIOD  - TIME 
T'UL  NEXT  PERIGEE 


ntp/e 


t,=t,-At+  Ni 


TCDH^TCSI^-ODt,p+  HAPPAl^ 


TIME  0FCDH=TIME0FCSI-TIME  SINCE  LAST 
APSIS  + N 

(h- NUMBER  OFTHE  FUTURE  AP5IDAL  CROSSING 
I OF  P-IE  ACTIVE  VEHICLE  AT  WHICH  THE 

\ CUH  MANtU'/LP  OCCURS  I 


INDEX  TD  ALARM  CODE  TABLE 

ALARM  CODE  OOG04=TIME  FROM  CDH  TDTPK  10  MIM. 


^3^  \s.  yes  ( 5CMDS0L  I 


OD^-*-VACT4^  y^j  REODIRED  VELOCITY  OF  ACTIVE  VEHICL 
MPAC/<-RACTl^  POSITION  OF  ACTIVE  VEHICLE  AI  CSI 


GDy-*— MPACy 

lEDj^TCSIop 

14Do?-TCOHdp  tz 

I&D5?—  TWO  PI;^  DO  CONIC  INTEGRATION 

^ input:  IGD^,  14D^,  lED^.GD, , 

/ INTINT  \ OD^^RTXl^KTXS 

^ CONIC  INTEGRATION \ OUTPUT:  MPAC  = RATT 

OF  STATE  VECTDRTO  \ VATT 

CDH  TIME  / 

\fc -37-40  7 


RETURN  VIA 
\ QPRET  / 


RACT2,-x-MPAC^  Taj  POSmOKl  VECTOR  OF  ACTIVE  VEHICLE  AT  CDH 
VACTZ^VATTv  VEIDCITY  VECTOR  OF  ACTIVE  VEHICLE  AT  CDH 


OD,— -VPASSly  Vp,  VELOCITY  0FPAS6IVE  VEHICLE  AT  CSt 

GD;»-RPAS&l(,  tn  position  of  passive  VEHICLE  AT  CSI 


APQUO 

OMtAMCE  AM  NAVIGATION 


P32  AND  P7E 

CO-FLLIPTIC  SEQUENCE  INIATION 


DOCUNENT  NO. 

FC-3720 


SHEET  il6  OF  27 


FROM  PRECEOIMG  PAGE 


INTIMTEG 


'CONIC  INTEGRATION  OF 
PASSIVE  VEHICLE  STATE 
VECTOR  TO  CDH  TIME 


SH  16 


RPASS2^-^MPACy 
VPASS2,— VATT^ 

"PC 


CDHMVR 


'COMPOTE  DELTA  VELOCITY  ' 
REQUIRED  TO  EFFECT 
CDH  MANEUVER 


,FC-3730 


Oa^-«-RACT2y 

MPAC^-*-VACT3y 

1 

i 

INPUT;  MPAC^=  Tpj^TCSI^.TCDHjj 

ODp-Vp^ 

OLTPUT;  MPAC  = Tpj 


POSITION  VEODR  OF  PASSIVE  VEHICLE  AT  COH 
VELOCITY  VECTOR  OF  PASSIVE  VEHICLE  AT  CDH 


INPUT;  RACT2^,VACTE^,RPASSt^,VFA5SC^,IIPl,,,FrrMUj,p 
OUTPUT;  DELVEET2^=  REQUIRED  AV  AT  CUH  (aV,') 

VACT3^  = required  velocity  of  ACnW 

VEHICLE  AT  CDH 

DIFFALTjjp=  ALTITUDE  BETWEEN  ACTIVE 
AND  PASSIVE  VEHICLE 
ORBITS  AT  CDH 

POSITION  VECTOR  OF  ACTIVE  VEHICLE  AT  CCH 


PERIAPOl 


COMPITTE  PERIGEE 
ALTITUDE  after 
COH  MANEUVER 


, FC-  3760 


PCJSTCDHn 


-MPACn 


0D,-»-VACT2,^ 
&0y  ^ — RACT^y 
IZD^^TCOHj^ 

TTPI(jp 


- apisc®t 


INPUT:  MPAC.OD,  RTX1,RTXE,RPAD.PLS 
OUTPUT:  MPAC=  PERIGREE  ALTt’‘UDe  AFTER 
CDH  M^^NEUVER 


PERIGREE  ALTITUDE  AFTER  CDH  MANEUVER 


REDUiRfDVELXm  OF  ACTIVE  VEHtCuE  tTCDW 

Taz  position  ofactue  vehicle  atcoh 

TIME  OFCOHk^ANEUVER 
tj  TIME  OF  TFT  MANEUVER 
DO  CONIC  INTEGRATION 


INTI  NT 


CONIC  INTEGRATION  OF 
ACTIVE  VEHICLE  STATE 
VECTOR  TDTP1  TIME 


FC-  37AO 


input:  0D(Vp3),  '^D(r^j),  12D(tcDH), 
OUTPUT*.  RATT,  VATT 


VELOCITY  OF  ACTIVE  VEHICLE  AT  TTI 


TO  NEXT  PAGE 


MIT 

IMSntUMENrATKM  LAt 

CMMRM.  MASS. 


PHAWW  A.C.WILLIAMS 


MMUST^ 

BOCMR 


5-l-fcS 


^-?2-6Sr 


Apoao 

CMtMHCE  AND  MA¥ICATION 


P32  AND  P72 

CO-ELUPnC  SEQUENCE  INITIATION 


LUMINARY  ID 


Wt  3 


DOCUNENT  NO. 

FC-3720 

( SHKT  17  ‘ 


OF  S7 


FROI^,  PRECEDI  NS  PAGE 


DESIRED  LINE-OF- SIGHT  FROM  ACTIVE 
= COS  E U*4It(u.  X + SIN  E UNITfr^j)  VEHICLE  TO  PASSIVE  VEHICLE  AT  TPI 

0D,'^C^(eU-v)7n1t'^PV  o7(7ct71  ^NCaEvTuNI^RATvT  angle  betheeh  the  lm/csm  LOS  and 

''  V / L ■“<  y \ \ the  HORIZONTAL  PUNE  OF  THE  ACTIVE  VEHICLE  AT  TPT 


Cl  = r.5-U.i. 


- PACTS.  . OR, 


! . - 




'°*P- 


1^  1 |ppasss,|4 


REAL  SOLOriON  ? 

^L05  DOES  NOT  INTERSECtN 
X.  NO  VCIRCLE  OF  RADIUS  Tp^  / 


MPAC  ^ 0 . 


-<i>D^-7MFAC 


Kj  = -Cl  + Jc^ 
fcD^+yMPAC 


INOEX  TO  ALARM  CODE  TABLE  . 

I Alarm  CODE  600*  IMAGINARY^ 

\ROOTS  ON  FIRST  ITERATION  / | 
RRST  iteration  ? 


LO0POT  = O 


Av^=iavj 


reduce  ITERATION 


DETERMINE  A RADIUS  VECTOR  h 
OF  THE  SALIE  LENGTH  AS  TpsTHAT  iHifk- 
SECTS  THE  DS5IKED  UHE-OF-SIGHT,  y,^ 

|b  = r»»T'<U-i  I 


b»  = r*=  + 

* 2k  (r„  • iaO<'v\-'~^)=o 

*X-  'iO ± Jfrx.VikT-fcl- ^A) 


lltD„|>llOCU^ 


3(k=ki') 


V,  =V„-AV. 


-D/PRCV -DELt)V„ 


REDUCE  ESTIMATE  | 
OF  REQUIRED  QV 
AT  CST  and  TRT  I 

again  I 


UNIT  b=  UNIT(r»j+ 

00^  -^i]NIT(RACT3^  + lOD^OD^) 


TO  NEXT  PAGE 


IMIMWMfrMN  IM 
ownm.  MASS. 


AKUO 

atttAIM:  «M  NMICATHM 

P3^  AND  PIZ 

DO-ELLIPTIC  sequence  INITIATION 

IMCUMENT  NOl 

LUMINARY  ID  PC“3T20 
^ 3 I SHOT  18  OF  27 


FROM  PRECEOIN3  PASE 


TO  NEXT  PAGE  TO  NEXT  PAGE 


MT 

MsimiMEiiMneN  lm 
CAMMIME,  MMS. 

ANliO 

CMliWKt  MO  NMTtMTION 

pse  AKJD  P7Z 

CX»-ELL1FT1C  SEQUENCE  INITIATION 

MMM  A.C.WILLIAMS 

5-i-4.6 

P«0mt 

OOCUMCNT  NO. 

LUMINARY  ID  FC“'3720 

AMLit  W . 

MOM  (-iL  //  / 

/Li^L 

WW%  /7  

«V  3 1 S«ET19  Of  27 

77 


FROM  PRECtDING  PAGE 


FROM  PRECEDING  PAGE 


GAMPREV^ 

-y 

SET  ITERAnoN  DECRE- 
MENT TO  DRIVE  TRE 
ERROR  (V)  TO  0. 
(using  a linear 
E)aRAFOLATION) 


FIFTYFP^ 

i 


AVi=-50'%ec  SGn(Sl)SGn(7^) 
DELIVop-< — FlFDSDPop  SGN(4D^)  SGM(GAMPREV„ 


SAVE  OLD  VALUE 


DELVCST, 


SAVE  OLD  VALUE  OF  Y 


SET  ITERATION  DECREMENT 
TOGO  ftsecwith  the 
PROFEK  SIGN  FOR  DRIVING 
y TWE  OFTWITE  DlRECnON 
(i.e.  TO  DRIVE  y TO  LARGER 
VALUES  INSTEAD  OFSMALLEK) 


NEW  ESnwATE  OF 

required  av  at  csr 


DRIVE  yiN  WRONG  DIRECTION  (WITH 
a=3  50  '%g.c  INCREMENTS  TO  Vj')  UNTIL 

/ CHANGES  SIGN. 


1 


csr/ BE 

SH13 


DO  ANOTHER  ITERATION 


AVi  = SGn(aVi')  • eoo  'Ysec. 
DELOV^-« SGN(bELDVop)-OELMAXl 


LIMTr  SIZE  OF  ITERATION 
STEP  TO  E00'%EC 


DELCVp. 


DO  NEXT  ITERATION 

SHlg  . 


NEW  ESTIMATE  OF 
REQUIRED  AV  AT  CSI 


TO 

NEXT 

PAGE 


FROM  PRECEDIKIG  PAGE 


CSl/SOL 


RTXls-e 
, EARTH 

MPAC™-* — PMINEn 


INDEX  TO  ALARM  CODE  TABLE 
^ALARM  CODE  CTOI  = PERIGEE 
VALTITUDE  AT  CSX  < MINIMUM/ 
RTXl  = -10 


M PACop-«—  PM  I 


DETERMINE  APPROPRIATE 
MINIMUM  ALTITUDE 


INDEX  TO  ALARM  CODE  TABLE 
alarm  CODE  G0E.=  PERISEE'\ 
ALTITUDE  ATCSI  < MINIMUM  / 
RTXl=-2 
1 EARTH 


'’PI  ^ "MIN 

posTCsr< 

\mrac/ 


PERICENTER  ALTITUDE 
AFTER  CSX  < MINIMUM  ? 
V VE5 


SCNPSOL 
^ SHie  ^ 


RTX1=-10 

moonI 


hMm  = 65  NM 

t^MiN  = 35,000  FT 

PERICENTER  ALTITUDE 
AFTER  CDH<  MINIMUM  ?. 
\ YES 


1 SCNOSOL  1 

1 NO 

AT,=  t,-ti 


TIME  BETWEEN  CSI  AND  CDH 


INDEX  TO  alarm  code  table 
I^ALARM  CODE  GOB  = TIME  BETWEEN') 
I CSI  AND  CDH  < 10  MIN.  / 


INDEX  TO  ALARM  CODE  TABLE 
ALARM  CODE  G04  =.TIME  BE-' 
TWEEN  CDH  AND  TPX  < 10  MIN. 


TITOTE  < 

Ntminv 


SCNPSOL 
^ 5H22 


^Il=  

TZTDTScp  -« — TTPr^  - TCDHpp 


TIME  between  CDHANDTFI 


P3E/PT2.C 
\ SH4  / 


TOTOT3  < 

\tmin  / 


SCNPSOL 
SH2S  ^ 


MIT 

MIMMINrATKM  lAI 
CA—HIK.  MASS. 

A.C.WU.LIAMS 


AKUO 

CmtAMCt  AM  NAVICATION 


P3Z  AND  PIZ 

CO-ELLIFTIC  SEQUENCE  INITIATION 


LUMINARY  ID 

facr  — 


MKUMCm  NO. 

FC-3720 

I S*€n  21  OF  aT 


alarm  conditions  that  cause  entry  of  scndsol  are-. 

NO  SOLUTION  after  15  ITERATIONS 

Vi  > 1000  f^'sec  ON  Z SUCCESSIVE  ITERATl  INS 


tj  <1^ 

hpi<  as  NM  OR  55,000  FT 
hpj<85NM  OR  35,000  FT 
ATj  < 10  MIN 
AT,<  10  MIN 


MIT 

INSnUMMAIKM  IM 
CMMMai.  MASS. 


A.C.WiLEIAMS 


AI1AIST_ 

OOCMR 


f-22-£r 


5-fe-4S 


APOUO 

CHIMNCE  AND  NAVICATiON 


P3Z  AND  P72 

CO-ELLlPnc  SEQUENCE  INIATION 


LUMINARY  ID 


MCUMENT  NO. 

FC-3720 


I SHEET  2g  Of  27 


«EV  3 


ALMXITA 


T A 1 D lut  ^ y O 

Lb  1 A UK  rn  " a c 

(^ALMXIT  J 


f OOQOQ 

IF  CSULRM  -1 

OOGOl 

~z 

OOfcO^ 

-3 

A-^<| 

00fc03 

= 4 

00G04 

= 5 

00005 

— (a 

“7 

ON  FIRST  ITTRATIOM,  LOS  ATTPT  DOES  NOT  INTERSECT  CIRCLE  OF  RADIUS 
PERICENTER  altitude  AFTER  CSI  UESSTHAVi  a5NM(EARm)  OR  35,000  FT  (mOONJ 
PERICENTER  ALTITUDE  AFTER  CDH  LES5TWAN  65NM^ARTH)0R  35,000 FT (MO-ON; 
TIME  FROM  C5I  ID  CDH  LESS  THAN  10  WIN 
TIME  FROM  COHTD  TPI  LESS  THAN  10  MIN 
NO  SOLUTION  after  15  ITERATIONS 

REQUIRED  AV  ATC5I  GREATER  THAN  1000  FPS  ONe  SUCCESSIVE  ITERATIONS 


VARALARM 
TURN  ON  ALARM 
LIGHT  AND  STORE 
ALARM  CODE  FOR 
DISPLAY 
\FC-  3140 


GOFLASH 


PROCEED 


VOS NOS 

display  alarm  , 

CODE 


TERMINATE 


GOTOPOOH 


7 


RETURN  TD  BEGINNING 

ofprosram  to  change 

INPUT  parameters 


Mn 

MsntwnrwNN  iM 

MMNMI.  MMS. 

AfOUi) 

€UIM«  tm  WWriCATION 

P32  AMD  P7B 

CO-ELLlPTlC  SEQUENCE  INITIATION 

MUM  A.CV^IULIAMS 

5-7-i8 

rmim 

2-22-i2 

DOCuMnriio. 

LUMINARY  ID  pQ_3720 

mxm  t:/L^/ 

MV  3 1 SHEET  23  Of  27 

P32  - COPI.LIPTIC  SPQUKNCK  INITIATION 


SUBROUTINES 


IN  THIS  CHART 
AVFLAGA 
AVFLAGP 
S32/33.1 
DISDVLVC 
ROTATE 
S32/33.X 
PRECSET 
CSI/A 
INTINT2C 
VN1645 
ADVANCE 

COMPTGO 

P3XORP7X 


SETS  AVFLAG,  L'PDATFLG  AND  TRACKFLG 

SETS  UPDATFLG,  TRACKFLG  AND  CLEARS  AVFLAG 

DISPLAY  AV  AT  CSI  IN  LOCAL  VERTICAL  COORDINATES 

CONVERT  AV  FROM  REFERENCE  TO  LOCAL  VERT  COORDS  AND  DISPLAY 

ROTATES  VECTOR  OF  ACTIVE  VEHICLE  INTO  PLANE  OF  PASSIVE  VEHICLE 

COMPUTE  MATRIX  FOR  LOCAL  VERT  TO  REF  COORD  TRANSFORMATION 

ADVANCE  BOTH  VEHICLES  TO  APPLICABLE  MANEUVER  TIME  VIA  PRECISION  INTEGRATION 
COMPUTE  CSI/CDH  MANEUVER  PARAMETERS 

PERFORMS  HOUSEKEEPING  FOR  AND  CALLS  INTEGRATION  ROUTINE 
DISPLAY  V16N45 

ACTIVE  AND  PASSIVE  STATE  VECTORS  TO  CSI  TIME  PRECISION 
INTEGRATION  OF 

COMPUTE  TIME  TO  GO  TO  IGNITION 

TEST  TO  SEE  IF  CALLING  PROGRAM  IS  P32  OR  P72 


ON  OTHER  CHARTS 


FLOW  CTART 
N I AIDER 


SELECTMU 

IN  TINT 
GET  + MGA 
PERIAPO  \ 
PERIAPOl  S 
TIMETHET 
CDHMVR 
LEMPREC 
CSMPREC 


SELECT  VALUE  ACCORDING  TO  LUNAR  OR  EARTH  SPHERE 
OF  INFLUENCE 

PREPARE  FOR  AND  CALL  INTEGRATION  ROUTINE 
COMPUTE  MIDDLE  GIMBAL  ANGLE  AT  THRUSTING  ATTITUDE 
COMPUTE  APOGEE  AND  PERIGEE  ALTITUDE 

OBTAIN  PERIOD  (tp)  OF  NEW  ORBIT  OR  A BETWEEN  2 POINTS 
COMPUTE  CDH  MANEUVER  PARAMETERS 

UPDATE  LM  STATE  VECTOR  TO  SPECIFIED  TIME  VIA  PRECISION  IN  TEGR  \TION 
UPDATE  CSM  STATE  VECTOR  TO  SPECIFIED  TIME  VIA  PRECISION  INTEGRATION 


3760 

3740 

3760 

3760 

3360 

3730 

3350 

3350 


7 LAGS 

1 MEANING 

SUT 

CLEARED 

TESTED 

AVFLAG 

SET 

LM  IS  ACTIVE  VEHICLE 

SH  2 

SH  2 

CLEARED 

CSM  IS  ACTIVE  VEHICLE 

UPDATFLG 

SET 

UPDATING  IS  ALLOWED 

SH  2.  SH  4 

SH  8 

CLEARED 

TRACKING  IS  DISALLOWED 

TH  ACKFL.G 

SET 

TRACKING  IS  ALLOWED 

SH  2 

CLEARED 

TRACKING  IS  DISALLOWED 

FINALFLG 

SET 

L AST  PASS  THRU  RENDEZVOUS 

PROGRAM 

CLEARED 

INTERIM  PASS  THRU  RENDEZVOUS 

SH  8 

SH  4.  SH  7, 

PROGRAM 

SH  8 

RUFSMFLG 

SET 

REFERENCE  MATRIX  IS  GOOD 

SH  7 

1 

CL.EARED 

REFERENCE  MATRIX  IS  NOT  GOOD 

S32.1F1  ; 

SET 

Vj  EXCEEDS  M AXIMUM  ALLOW  ABLE 

VALUE 

CLEARED 

Vj  DOES  NOT  EXCEED  M AXIMUM 

SH  13 

SH  i;'> 

SH  13 

\l.,I,OWABLr  VALUE 

S32.1F2 

SET 

INDIC  \TES  FIRST  PASS  FOR 

SH  12, 

SH  19 

SH  19 

N EW  rON-RH  APSON  ITERATION 

CLEARED 

OTHER  THAN  FIRST  PASS 

=0 

START  SEARCH  IN  OPPOSITE 

DIRECTION 

SH  12.  22 

SH  19.  SH22| 

S32.  1F3A 

= 1 

FIRST  SEARCH 

S32.  1F3B 

= 2 

2ND  CYCLE  THRU  CSI/A  AREA 

SH  19 

= 3 

50  FT/SEC  INCREMENTS  TCJ  V^ 

SH  20 

UNTIL  7 CH  ANGES  SIGN 

H\'SW 

SET 

JUST  COMPUTE  A FROM  TIMETHET 

ROITINE 

cleared 

COMPUTE  A AND  UPDATE  STATE 

SH  14, 

VECTOR  DURING  TIMETHET 

SH  15 

XDKLA'FLG 

SET 

external  AV  MANEUVER 

SH  10 

CLEARED 

L.AMBERT  AIMPOINT  MANEUVER 

CMOONFLG 

SET 

PERMANENT  CSM  STATE  IN  LUNAR 

SPHERE 

CLEARED 

PERMANENT  CSM  STATE  IN  EARTH 

SH  2 

SPHERE 

■IT 

MBIMNOffArKM  LM 

OMMIIMI.  MSS. 

^ 

AMUO 

OIIMNCC  Ml  MVtSATIOll 

P32.  AND  P 7Z 

COELLI  PT  IC 

SEQUENCE  INITIATION 

HiiiiiiillMlABefefaM 

immsr  

mm 
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P32  - COELLIPTIC  SEyUENCE  INITIATION  (CONT.) 

DISPLAYS 

M E \N  INC 

ISL'D 

VOSNll 

DISPLAY  CSI  TIME 

SH  2 

V06N55 

DISPLAY  DESIRED  NUMBER  OF  APSIDAL  CROSSING  AT  CDH  AND 

SH  3 

ELEV.  ANGLE  AT  TPI 

V06N37 

DISPLAY  TIME  OF  TPI  M.ANEUVER 

SH  3 

V16N45 

DISPLAY  MARKS,  TIME  FROM  IGNITION,  MIDDLE  GIMBAL  ANGLE 

SH  8 

V06N75 

DISPLAY  CSI/CDH  PARAMETERS 

SH  5 

V06N81 

DISPLAY  REQUIRED  AV  FOR  CSI 

SH  9 

V06N82 

DISPLAY  REQUIRED  AV  FOR  CDH 

SH  9 

V05N09 

DISPLAY  APPROPRIATE  ALARM  CODE 

SI  I 23 

ALARMS 

MEANING 

USED 

00600 

ON  FIRST  ITER  ATION,  LOS  AT  TPI  DOES  NOT  INTERSECT  CIRCLE 

SH  18 

OF  RADIUS  rp3 

00601 

PERICENTER  ALTITUDE  AFTER  TPI  LESS  THAN  85  NM  (EARTH)  OR 

SH  21 

35,000  FT  (MOON) 

00602 

PERICENTER  ALTITUDE  AFTER  CDH  LESS  TH.AN  85  NM  (EARTH)  OR 

SH  21 

35,000  FT  (MOON) 

00603 

TIME  FROM  CSI  TO  CDH  LESS  THAN  10  MIN 

SH  21 

00604 

TIME  FROM  CDH  TO  TPI  LESS  TH.AN  10  MIN 

SH  16. 

SH  21 

00605 

NO  SOLUTION  AFTER  15  ITERATIONS 

SH  12 

00606 

REQUIRED  AV  AT  CSI  GREATER  TH.AN  1000  FT/SEC  ON  2 

SH  13 

SUCCESSIVE  ITERATIONS 

ERASABLES 

MEANING  UMTS 

SCALING 

CSIAl.RM 

CSTH 

DKLnV 

DEL-VEfn'l 

DELVKET2 

DELVCSI 

UEL.VI.VC 

DELVSAB 

DEI.VSIN 

DIFFAl.T 


DVF’REV 

ECC 

ELE\' 

GAM FREY 


FIAFPAI 

l,OOPCT 


POSTCDH 

POSTCSI 

RACTl 

RACT2 

RACT3 

R ATT 

RDOTV 


RPASSl 


RPASS2 


RPASS3 

RTIG 


RTMU 

RTSRl/MC 


RTXl 


RTX2 


RVEC 

sxth 

T1TDT2 

T2TDT3 


AFARM  CODi: 

COS  OF  0 THE  TRUE  ANOMAL.Y  ANGLE 

AV  STORAGE 

AV  FOR  CSI  MANEUVER 

AV  FOR  CDH  MANEUVER 

AV  AT  CSI 

AV  IN  LOCAL  VERTICAL  COORDINATES 

MAGNITUDE  OF  AV  AT  CSI 

AV  AT  CSI  IN  REFERENCE  COORDINATES 

DISTANCE  BETWEEN  ACTIVE  AND  PASSIVE 

VEHICLE  ORBITS  AT  CDH 

PREVIOUS  CSI  AV  VALUE 

ECCENTRICITY 

DESIRED  LOS  ANGLE  AT  TPI 

PREVIOUS  VAL.UE  OF")  , THE  IIRROR  ANGLE 

FROM  b TO  Tjjg 

TIME  BETWEEN  APSIDAL.  CROSSINGS 
ITERATION  COUNTER 

NUMBER  OF  APSIDAL,  CROSSINGS  OF  ACTIVE 
VEHICLE 

PERIGEE  ALTITUDE  AFTER  CDH  MANEUVER 
PERIGEE  \LTITUDE  AFTER  CSI  MANEUVER 
POSITION  OF  ACTIVE  VEHICLE  AT  CSI  TIME 
POSITION  OF  ACTIVE  VEHICLE  AT  CDH  TIME 
POSITION  VECTOR  OF  ACTIVE  VEIIICL.E  \T  TPI 
POSITION  VECTOR  OUTPUT  FROM  INTIIGR  A ITON 

* ^\1 

POSITION  VECTOR  OF  PASSIVE  VEHICLE  AT 
CSI  TIME 

POSITION  VECTOR  OF  PASSIVE  VEHICLE 
AT  CDH 

POSITION  VECTOR  OF  PASSIVE  VEHICLE  AT  TPI 
POSITION  OF  ACTIVE  VEHICLE  AT  CSI  BEFORE 
ROTATION 
H OR  n 


1//770R  nyfir; 


SHIFT  COUNTKR;  -2  FOR  EARTH  ORBIT,  -10  FOR 
LUN  AR  ORBIT 

SHIFT  COUNTER;  0 FOR  EARTH  ORBIT,  2 FOR 
LUNAR  ORBIT 

POSITION  VECTOR  (INPUT  TO  CONIC  ROUTINES) 
SINE  OF  B THE  TRUE  ANOMALY  ANGLE 
TIME  FROM  CSI  TO  CDH 
TIME  FROM  CDH  TO  TPI 


MAWN 


MtT 

IHSTKUMnirArKM  IM 
CAMHtlWK,  MSS. 


AfWB 


B28 

RE  VOLUTIONS 

B1 

M/CSEC 

B7 

M/CSEC 

B7 

M/CSEC 

B7 

M/CSEC 

B7 

M/CSEC 

H7 

B7 

.M/CSEC 

B7 

M ETERS 

B29 

M/CSEC 

07 

B3 

RE\OLUTIO.NS 

B1 

HEVOl.UTlONS 

BO 

C ENTISKCONDS 

B28 

n28 

B28 

.M  ETERS 

B29 

M LTKRS 

B29 

METERS 

B29 

METERS 

B29 

M i:tlrs 

B29 

M KTFRS 

B29 

B36 

M KT KRS 

B29 

M LTKRS 

B29 

METERS 

B29 

METERS 

B29 

M^/CSEC^ 

B36  OR 

CSEC/M^^^ 

B30 

B17  OH 

B14 

B14 

B14 

MPJTERS 

B29 

REVOLUTIONS 

B1 

CENTISECONDS 

B28 

CENTISECONDS 

B28 

1 ANUS 

CUIOMKX  mm  MWICATfON 

P3^  AND  P7Z 

COELLI  P Tl C 

SEaUENCE  INITIATION 

k s'  VufrkS*  3 


LUMINARY  ID 


MCUKW  NO. 

FC-3720 


SHKT  26  Of  27 


P32  - COELLIPTIC  SEQUENCE  INITIATION 


ERASABCES 


TCDH 

TCSI 

TIG 

TTPI 

TTPIO 

UPl 

VACTl 

VACT2 

VACT3 

VACT4 

VATT 

VPASSl 

VPASS2 

VPASS3 

VVEC 


CONSTANTS 


MEANING 


TIME  OF  CDH  MANEUVER 

TIME  OF  CSI  MANEUVER 

TIME  OF  IGNITION 

TIME  OF  TPI  MANEUVER 

TIME  OF  TPI  MANEUVER  FOR  P33 

UNIT-NORMAL  TO  PLANE  OF  PASSIVE  VEHICLE 

VELOCITY  OF  ACTIVE  VEHICLE  AT  CSI 

VELOCITY  V'ECTOR  OF  ACTIVE  VEHICLE  AT 

CDH 

VELOCITY  VECTOR  OF  ACTIVE  VEHICLE  AT 
TPI 

VELOCITY  VECTOR  OF  ACTIVE  VEHICLE  AT 
INTERCEPT 

VELOCITY  VECTOR  OUTPUT  FROM 
INTEGRATION 

VEL.OCITY  VECTOR  OF  PASSIVE  VEHICLE  AT 
CSI  TIME 

VELOCITY  VECTOR  OF  PASSIVE  VEHICLE 
AT  CDH 

VELOCITY  VECTOR  OF  PASSIVE  VEHICLE  AT 
TPI 

VELOCITY  VECTOR  (INPUT  TO  CONIC  ROUTINES) 


I VALUE 


MUTABLE 

MUTABLE+6 

MUTABLE+8 

MUTABLE+1 


/^e  GRAVITATIONAL  CONSTANT  3.986032  X 10^° 
OF  E.ARTH 

1/y  fig  .50087529  X 10 

Me  GRAVITATIONAL  CONSTANT  4.902778  X 10® 

OF  MOON 

* • .45162595  X lO' 


CEXTISECONDS 

CENTISECONDS 

CEXTISECONDS 

CENTISECONDS 

CENTISECONDS 

M/CSEC 

M/CSEC 


M/CSEC 

M/CSEC 

M/CSEC 


M/CSEC 

M/CSEC 

.M/CSEC 


M®,'CSEC® 

CSEC/M®^® 

.M®/CSEC® 

CSEC/M®^- 


Amu) 

OHDAHCE  mm  IMVICMNN 


P32  AND  P7L 
COELL I PTl  C 
SEQUENCE  INITIATION 


SKEI  27  Of  Z7 


P33  and  P73 


P33 

SH.  2 

P73 

SH.  2 

INTINT3P 

SH.  3 

CDHMVR 

SH.  6 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

DRAWN  yiL/fc 

PRGMR 

ANALST 

DOCMR 

APPR'D-f?Jl„^„.OrY\C^ 

APOLLO  GUIDANCE  AND  NAVIGATION 


P33  and  P73 
Constant  Delta  Altitude  Targettih 


LUMINARY  ID 

^ 


DOCUMENT  NO. 

FC-3730 


REV 


ISHEH  1 OF  8 


SET  AVFLAG 
, FC-3720  5Ml/ 


LM  ACTIVE 


/CLEAR  AVFLAG  \ 

\(LM  ACTIVE)  / 

\fC-37BO  SHl/  CSM  ACTIVE 


[P32/P72A 


/P20FLGOM  \ 

' SET  UPDATFLg'' 
SET  TRACKFlG 

\fC-37S0  SHl/ 


allow  P20  UPDATIWG 


Enable  tracking 


VIS  ENTER 
^4■eW  CDHTIME 
AVD  RBCNCLE 


__  VNPOOH  ^ 
VOGNtS 
DISPLAY  COH 
IGNITION  time  . 

V FC-  3740  / 


Rl  = HR5] 

RC=  MIN  y TCDM^ 
R3  = SEC 


:CALC'JLA-irD  AND  S'lOREC  ir.  P’ 


PROCEED 



— TTPIO^ 

— TCDHjjp 

SELECTMU  \ 
SELECT 
APPROPRIATE 
VALUE  OF  /I 
,FC^T60  7 


FC-37201 


TIME  OFTPI  MANEUVrP  vCA_:'JLATEQ  AND  ^y-TV  rlyZ) 


,0  = earth 

input: 

OUTPUT:  PTSRl/M'Jpp-^^=r 


RTxc=[o: 


*•£  = EARTH 
-;0-  M 30N 


=•  EARTH 
= MOON 


HHT 

msmmmmmm  im 
crnmnoL.  mass. 

i.Q.yV'LLlAMS 


MKua 

CVtMHGE  MU  WWICATtCN 

P33  ANC  P73 
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V 


S3435.  23 


jk 

/ INTINT  ‘\ 

■passive  v*Sucle  \ Output;  MPACy  ^ position  vector 

V to  intercept  / VATT,,  = velocity  vector 

\ time  / V 

^ '‘Sh722  ”‘/ 


± 

RTARGy  < MPAC^ 

VPASS4^  VATT^ 

UNIT  (RTARG^^) 

6D^  < UNIT  (RACT3y) 
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B’rom  Preceding  Sheet 


6D  = X £p*U 


6D 


D 


-6D^  X OD^'UNRM^- 


iMPACy  ^ UNIT(RACT3^,) 


\(0  = cos  (£y^*£p)  SGN(£^  X Tp*  U) 


-1, 


|MPACp^ cos  (MPAC^.*OD^,)SGN  60^, 


(0  = Orbital  central  angle  traversed  by 
the  active  vehicle  during  transfer  from 
TPI  to  TPF  (Time  of  Intercept) 


CO  = (0  + 277 


MPAC 


D' 


-MPACp  + DPPOSMAXp 


Yes 


NOPIE  W 


ACTCENT 
DELLT4p« 


D 

TPASS4 


— MPACp 
P - INTIMEp 


! Set 
I Pushlist 

I 

I Zero 


OD 


D' 


-NN 


“ D 
RINIT. 

VINIT 


- EPSFOUR 
— RACTS-^ 

V 


D 


-VACT3 


NexrSheet 


Make  co  positive 
in  third  or  fourth 
quadrant. 


ACTCENT  = CO 

DELLT4  = Time  from  TPI  to  TPF 
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From  Preceding  Sheet 


INITVEL 

Compute 

required 

velocities 

FC-3760 


Input:  UNRM 
JEIACTS 
Output: 
Transfor- 
mation 
matrix  in 
OD 


LOMAT 

Computes  Matrix 
'o  Convert  AV  From 
eference  to  Local 
^/ertical  Coordinates 


M ' ^ 

! 

I ^ i f 

r 

DELVLVC,.-M (OIX.)DELVEET3,. 

V M \' 

5 

f 

Return  via 
SUBEXIT 


Input:  RACT3,  VACT3,  RTARG,  DELLT4,  OD 
INTIME,  MPAC,  Xl(=  - 2 for  earth,  ^ 
= - 10  for  moon  orbit) 

Output:  RTARG(Offset  target  position  vector), 
VIPRIME( velocity  required  from 
TPI  point  for  active  vehicle  to 
achieve  TPF  point),  VTPRIME(active 
vehicle  velocity  after  TPF  point), 
DELVEET3(AV  for  TPI  maneuver) 
INITVEL  computes  the  required  maneuver 
and  delta  velocities  to  transfer  the 
active  vehicle  from  its  initial 
position  (TPI)  to  target  position 
(TPF)  in  a prescribe  time  of  flight. 


AV  In  local  vertical  coordinates 
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Next  Sheet 


Calculates  line  of  sigh:  AV  in 
reference  coordinates  at  TPI  time. 
Input;  DELVLVC,  \ ACTS, 

PACTS,  TIG,  TPASS4, 
UNRM,  ULOS 
Output:  D\  LOS,  RTARG 


Input : 
Output : 


UNRM.  PACTS 
Transformation  matrix 


in  OD 


M 


Push  list  counter  is  18  upon 

return  from  LOMAT 

DELI  EETS  = A^  in  reference 

cooi’dinates. 

DELVLVC  = New  inputted  by 

astronaut  overwrite. 


Set  up  vac  area  for  integration 
routine 


Indicates  precision  integration 


Output:  RATT^ 


New  offset  target  vector 
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GOINT 


Routine  to  prepare  user  for  conic 
or  precision  integration. 

Input:  Velocity  vector  in  push  list. 


MPAC, 


Position  vector 


Output:  Updated  state  vector  in  RATT^, 
VATT,, 


MPAC, 


Store  position  vector 


ZEROVECSj^  Set  TET  to  zero 
' NOMTPIj^  Time  increment  for  integration 

»NOMTPI_  Do  conic  integration 


INTINT 


RTRN  Save  return  in  RTRN 


QPRET 


/INTSTALL\ 
Test  For  ' 
Availability 
Of  Integratior 
\ FC-3350  / 


Clear 

INTYPFLG 


Indicates  precision  integration  is  to  be 
used. 


PACj^Last  Item  In  Vac  AREAj. 


Last  item  set  in  push  list  indicates  if  conic  or 
precision  integration  should  be  used. 


MPAC  = 0 
^ 


Set  ^ ^ Indicates  conic  integration  is  to 

INTYPFLG  be  used. 
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* 


TDEClj^^ 

PUSHLIST 

Jr  Ubrii-/io  1 

Time  to  integrate  to  from  pushlist  area 

Load  time  of  state  vector  from  pushlist 
area 


Indicates  sphere  of  influence  is  lunar 


CMOONFLG  1 
means  perman 
ent  CSM 
state  vector 
is  in  the  lunar 
sphere. 


Set  = 0 If  earth  centered  orbit 
Set  = 2 If  moon  centered  orbit 


Indicates  sphere  of 
influence  is  earth. 


Time  of  state  vector 

Shift  vectors  to  proper  sphere  of  influence 
Present  position  in  last  pushlist  area  used 

Present  velocity  in  next  to  last  pushlist 
area  used. 

Input:  RCV,  VCV,  TDECl,  TET 
Output;  VATT,  MPAC,  (RATT) 


Position  at  TDECl 


Return  via 
^ETRN / 
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LOMAT 


Y = - U 
Z = 

X = Z 


IfNITi-  r^) 

X (-  Y)  = Y X Z 


6D 

12D. 


- UNRM^ 
UNIT(-RACT3^) 


OD^^UNIT(-RACT3^)X  (-UNRM^) 


Compute  transformation  matrix  to  convert 
AV  from  reference  coordinates  to  local 
vertical  coordinates 


Set 
PU3HLISTI 
To  18D 


Return  via 
\ QPRET  . 


R1  - 
R2  - 

R3  - 


NN 

Elev 


Enter 
New  Data 


DISPLAYS 


I 


5 


NORMEX 


Q 


Save  return 
in  NORMEX 


IGOFLASH 


-XXX.  XX  DEG.  - 
Elev.  Angle 

CENTaNG -XXX.  XX  DEG  - 

Orbital  central 
angle  of  the 
passive  vehicle 
during  transfer 
from  TPI  to  time 
of  intercept. 


V06N55  \ 

Display  NN,  E - 
And  CENTANG/ 


Proceed 


Return  via 
. NORMEX  , 


Terminate 
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S34/35,5 


Display  in  local  vertical  coordinates 
for  astronaut  approval 


Save  return  in 
SUBEXIT 


5UBEXIT  < 


?PRET|  Input:  DELVEET3,  DELVLVC 


FINALFLG 

Set 


Set  Updating  via 

' UPDATFLG  marks  allowed 


FLAGON 


FLAGOFF 
Sh.  26 


Indicates  astronaut  did 
not  over  write  AV  if 
clear 


Clear^- ^ 

NTARGFLG 


I GDT/2^-« — DELVLVC^  ‘ 



i FLAGON  +5': 


V06N81 


I Over  write 


GOFLASH 

V06N81 


/ . vuDiNox  niT  mxdA) 

Disolay  with  I display  AVIn  Local)  fi2->DELVL\  C,  -xxxx.  x ft/sec'£\A  (L\  ) 

new  A V values \ Coordinates/  R3H  E\  Z(f  \ 

— \ A+  'T’TiT  I CT  ' 


5i\  XdA  ) 


Terminate 


Does  N. 

^No  GDT/2^  = 

DELVLVC^  / 
\ 9 ^ 


GOTO POOH  / 


Astronaut  i Set  ^ 
overwrote  j NTARGFLC 
DKSY  AV  

values 


Nex^heet 
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Calculates  the  appropriate  value  of  p 
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SI  BROUTINES  CALLED  ON  OTHER  FLOWCHARTS 


Subroutine 

Flowchart 



Description 

Where 

Called 

PRECSET 

FC-3760 

Update  active  and  passive  vehicles 

Sh.  5 

TIMETHET 

FC-3360 

Calculate  time  of  flight 

Sh.  7 

PERIAPOl 

FC-3760 

Calculate  perigee  altitude  of  active 

vehicle 

Sh.  7 

VN1645 

FC-3720 

Display  MARKS,  TFI,  MCA 

Sh.  8 

ACTIVE 

FC-3760 

Store  active  vehicle  state  vector 

Sh.  15 

PASSIVE 

FC-3760 

Store  passive  vehicle  state  vector 

Sh.  16 

INITVEL 

FC-3760 

Compute  required  velocities 

Sh.  19 

INTSTALL 

FC-3350 

, Test  for  availability  of  integration 

Sh.  22 

INTEGRVS 

FC-3350 

Update  vehicle  state  vector 

Sh.  23 

BLANKET 

FC-3080 

Blank  DSKY 

Sh.  24 

P35 


prs 


LEM  IS  ACTIVE  VEHICLE 


/AVFLAQA  \ 
/ 3ET  AVFLAG  \ 
SET  ECSTEER 

\ ^ -J 

\FC-37EO  SHl/ 


^ C5M  IS  ACTIVE  VEHICLE 

/AVFLA6P  \ 

CLEAR  \ 

AVFLAG  ? 

\FC-3720  SHV 


ATieiKJCo 


PTieiNCo 


PAD  LOADED  TIME  DELAY 


[P35/P7SA) 


STORE  TIME  DELAY 


/ P20PL&0SJ 

SET  TRACKFLG 
AMD  UPDATFLG 
\ FC-3T20 


/ SELECTMU  \ 
'SELECT/I  FOR  SPHERE 
^ OF  IWFLUEMCE 
\ rC-3720  SH2  7 


OUTPUT:  RTSRl/MU,nTMU 


/ V16M45 
\M,TI6,M6A 

\fC  37Z0  SHz/ 
proceed/eht^  I 

(p35/75B  ') 


V^  OPTICS 

ri-trkmkcwt-xxb'>o?.-wo.  of  marks  sihce 

LAST  THRUSTIMG  MAWEUVER  (SEE  P20) 
R2-TTOGO-XXBXX  Ml W- SEC.-TIME  TO/FROM  TIG 
R3-  + MGA-XXX.XX  DEG- MIDDLE  GIMBLE  ANGLE 
-OOOOl  UNTIL  LAST  PASS , THEM  -OOO  02 


/ loadtime  \ 

'set  MPAC,SL0AD2 
, TO  PRE6EWT  TIME 


outputs: 

SLOA02 -»-TIME2  (PRESEMT  TIMS') 
MPACq— (PRESEMT  TIME) 


TSTRTo  MPAC. 

t 

TIGo-^  TSTRTo  + RTo 

iKJTIMEo-^ TIQo 

TOEClft  TISo 


IGKIITION  TIME  = PRESEMT  TIME 
PRESEL-ECTEO  TIME  OEUAY 

IGKJITION  TIME  USED  IM  INITVEL 


/ PPECSET  \ 
/update  ACTIVE  AMDV 
^PASSIVE  VEHICLES  TO^ 
\ TDECl  TIME  / 

\fC-37<»0  SHIO  / 


Ikipur  :tdecj.,csm  amd  lm  state  vectors 

OUTPUT  : RACT3vnVATT3viRPAS53vTVPAS53v 


/ 534/ 35.1  \ 

/compute  LOS  VECTORS 
fAND  UWIT  NORMAL 
\vECTOR  to  LOS  / 

\ PC  - shT/ 


IKJPUT  : RPASS3v,  RACT3v,  VACT3v 
OUTPUT  : UNRM^^ULOSv 


mext 

SHEET 


HHT 

MwmmwwraN  im 

cmmim,  mass. 


AKUO 

•UMMKE  AW  fMVICATKM 


P35, P7S 

TRAKISFER  PHASE  MIDCOURSE 
TARGET  I MG 


FROM  PREVIOUS  SHEET 


TeRniNATB 


G-O  TO  pOCh  j 


/ S34/35.2 

\ 

/ UPDATE  PASSIV 
VEHICLE  TO  INTER 
TIME  ANDCOMPU^ 
\ AT  TPF 

E \ 

CEPT 

rE  iiV 

\rc-3740  SH  <3 

1 ^ 

/ 534/ 35. S 

\ 

/ DISPLAY  AY 

COMPONENTS 
\ ASTRONAUT  APPR 

FOR 

OVAL 

\ FC-3740  SH 

.13  / 

1 

/ VNlfe4S 

DISPLAV  M,TI 
ANt>  MG  A 
\ 

G 

\ FC-3740  SH 

s / 

OUTPUT  : RT/^RG  j VP^SS  4 , DELVLVC 


input:  oelvlvc^ 
OUTPUT  : DELVSIN., 


R\  - TRUMKCNT  = NO.  MA.RKS  M/\-DE  S\MCE  THE  LAST 
THRUSTING  MANEUVER  OR  \N\T^AT10N 
OF  P ZO 

R2  = TTOGO  =.  time  to  or  FROM  TIG 
R3*  +M&A  - MIDDLE  GIMBAL  ANGLE 


proceed  / Ef^reR 


P35/P75B 


miT 

wsmowcwmTtflw  lab 
cmmtMU.  MASS. 


AAOLLO 

OJIOAHOE  Mn  NAVICATKm 


P35 , P75 

TRANSFER  PHASE  MIDCOURSE 
TARGETING 


DOCUMEffT  NO. 

FC-3750 


F35  TRANSFER  PRASE  MIDCOURSE 


SUBROUTINES 


ON  other  charts 


AV- L AGA 

AVFLAGP 

LOADTIME 

SELECTMU 

PRECSET 

S34/3S.1 

SS4/-3E.2 

S34  /SE,5 

VNlfe4  S 

P20FLG0M 


SET  AVFLAG,  SETS  ECSTEER^l 
CLEAR  AVFLAG 

SETS  MPAC  TO  present  TIME 

SELECT  VALUE  ACCORDING  TO  LUNAR  OR  EARTH  SPHERE  OF  INFLUENCE 

EK-ECUTES  PRECISION  UPDATE  OF  BOTH  VEHICLES 

COMPUTE  LOS  AND  UNIT  NORMAL  V ECTORS 

UPDATE  PASSIVE  VEHICLE  TO  INTERCEPT  TIME 

DISPLAV  COMPONENTS 

DISPLAY  M , TFl  AND  M&A 

SET  UPDATFLG,  TRACKFLG 


FLAGS 


DISPLAYS 

V14,K45 


AVFLAG 

TRACKFLS  FINALFLG 

UPDATFLG  AVFLAG 


1 ALL  SET  AND 
V CLEARED 
J ON  SHI 


Rl-TRKMKCNT-XXXXX.-NO  OF  MARKS 

RE-TTOGO  - XXBXX  MIN  SEC.- TIME  Td/ FROM  TIG  SH  . 2 

R3 — I- MGA-  XXX.  XX  DEG.  MIDDLE  GIMBAL  ANGLE 


ALARMS 

NONE 


ERASABLES 


UNITS 


scaling 


KT 

TSTRT 

TIG 

ATIGINC 
PTIGINC 
INTIME 
TDEC  1 


TIMEDELAY  STORAGE 
PRESENT  TIME  STORAGE 
TIME  OF  MANEUVER 
PAD  LOADED  TIME  DELAY  FOR  P35 
PAD  LOADED  TIME  DELAY  FOR  PT5 
INPUT  TIME  TO  INITVEL 
INPUT  TIME  TO  INTEGRATION 


CENTISECS 
CENTI  SECS 
CENTISECS 
CENTI  SECS 
CENTISECS 
CENTISECS 
CENTISECS 


2 2)5 
2 29 

2^' 

-79 


tt4T 

iNSimMmmrMPt  urn 

CMMHME.  MASS. 


\lfroL69\ 


imuD 

i mm  NMTMMrioN 


P3S  , P75 

TRANSFER  PHASE  MIDCOURSE 
TARGET\NG 


luminary  id 


HO. 

FC-3750 
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COMMON  TARGETING  SUBROUTINES 


MAJOR  SUBROUTINES  AND  EXTERNAL  ENTRY  POINTS 


INITVEL 

Sh. 

4 

HAVEGUES 

Sh. 

4 

VECSHIFT 

Sh. 

10 

SHIFTRl 

Sh. 

10 

GET+MGA 

Sh. 

11 

GET.  LVC 

Sh. 

12 

PERIAPO 

Sh. 

13 

PERIAPOl 

Sh. 

13 

SELECTMi. 

Sh. 

14 

PRECSET 

Sh. 

15 

LEMSTORE 

Sh. 

15 

CSMSTORE 

Sh. 

15 

MIT  INSTRUMENTATION  LAB 
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PRGMR  , 

ANALST 
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Common  Tareeting  S ibroutines 
iNTTVrj..  MTDGm 
PERIAPO,  SELECTML.  PRECSK 


LUMINAKY  11) 


DOCUMENT  NO. 

FC-:i760 
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HAVEGUES 


' INITIAL  GUESS 

SET  -fi  OF  cot -r  NOT 

AVAILABLE. 


SHIFT  Ca^),  ANE  YC-ti) 

IF  OFF-NOMINALSCALIING  REQUIl 


GEKIERAL  FLOW  EIAGRAM  OF 

guesJ  Subroutine  initveu  (ane  havegues) 

input:  icai) , V (to  ^ CT(ti), 
ASSUMES  HAS  BEEM  t^  ^ ti  ) j cotT^ 

CORRECTLY  SET  BY  <1. 

CALLING  ROUTINE.  OUTPUT:  yYf 

F '£.  1 C V (T  5 cot  T,  Fj  . 


IMINALSCALING  REQUIRED 

1 ' 

■.  / 1 INITIALI-ZE 

— ^ 1 ITERATION  COUNTER  . 

Form  cos  E I € = CONE  ANGLE 


♦ 

cos  <tl  — c(ti]yj^,^  • F.^  ('t-j'jgmx 


INITIALIZE  OFFSET  VECTOR 
EQUAL  TO  TARGET  VECTOR  . 


■t  IS  UNIT  VECTOR 
NORMAL  TO  and  Y(ti)  . 

It  IS  ANGLE  between 
CCti')  AND  CTCti). 


LIES 

OUTSIDE  CONE.  YES 


CrCt^i  LIES 
INSIDE  CONE  . 


)S180°-6, 


■&.  IS  INPUT 
TO  LAMBERT  ■ 


r" ^ 

LAMBERT  MUST 

Cp  Ctil  = (c(ti)  ■ t-  ) 

CALCULATE  -K  . 

* 

Cp(ti)  IS  PROJECTION  or 
r (tj)  ONTO  ■£,  . 


ROTATE  ^(ti)  INTO  PLANE 
OF  AND  Y (t  i) 


ON  FIRST  PASS  ONLY  ROTATE  E (t,) 
IN  THE  SAME  MANNER  BY  SETTING 
IT  EQUAL  TO  THE  NEW  F(-tp) 


Sg  ■=  O' [t:(tJ-t>,xcCtiV 

i , 

/ LAMBERT  \ 
/ CALCULATE  \ 
NjKIITIAL  VELOCITY  / 

\FC3SfeO  7 


"1  INITVEL  ASSUMES  PLANE 
J CHANGE  OF  LESS  THAN  S0° 

INPUT ; 

cai'^  , r(ti)  , -Eci  N,,F,  , cotr,  F^  , t, 

output: 

VxCti)  , YT-Ctj)  ; co+Y,  Fj. 


CLEAR  fi 


NO  i 

/ INTSTALL 
a^ESERVE  USE 
\OF  INTEGRV5 

\fCB350 


cot  r GUESS  IS 
I NOW  AVAILABLE  . 

YES 

PERFORM  SINGLE  CONIC 
UPDATE  ONLY  . 


AV  = Y.,(t,) 

-Yao 

' 

STORE  Yj  (.t-i) 


I SET  UP  ta. 


E EXK^DBZHSEGSp^II 


AY  IS  VEUOCITY-TO- 
BC- GAINED,  WHERE 
Y^ai)  IS  LAMBERT 
OUTPUT  AND  yC^i) 

IS  THE  INPUT  VALUE. 

YiCtT.)  IS  either 

FINAL  PRECISION 
OR  CONIC  VELOCITY 
FOR  N,  V=  O OK  N,  =0  . 


^ ^ Do  PRECISION 

fCLEAR  INTYPFLI^  INTEGRATION. 


IF  OFF -nominal  SCALING  WAS  USED 
SHIFT  cai),YTai)  , YtCc,)  ,AY 
back  to  (NOMINAL  scaling. 


7 INTEGRVS  \ INPUT: 

/integrate  stateX  C(t,^,YT(t,Ut,,-U 
(VECTOR  up-ro-tz 7 OUTPUT 

/ cVCta.)  ,YT,YT(t.) 


, cotr,-fa  , 


N2-^Ni+1  I I STORE  t:  I JCCti)  IS  THE  LAST  COMPUTED 

T T—  OFFSET  VECTOR  . 

HAVE  INTEGRATED 
YES  Ni+-1  TIMES 


— “ Cx('L*.)j 


calculate  NEW  OFF- 
sett  vector  caj  , 

WHERE  tVC-tz)  IS 
RESULT  OF  A PRE- 
CISION INTEGRATION  . 


WfT 

mmwMRnwriM  LM 
smmmi,  mass. 


gjgg 


APOUO 

CMWMCE  AND  NAVIGATION 


COMIvlON  TARGETING  SUBROUTINES 
IN  ITVEL.  MIDGIM 


I'oiipvsina 


wmnmsmmmm 


LUMINARY  ID 

DOCUMENT  NO. 

FC-37  6 0 

INITVEL  (AND  HAVEGUes) 

GIVIEM  THE  INITIAL  TIME  t>,  , THE  INITIAL  POSITION  n , THE  FIN  AL  POSITION  rT(t  a) 
AND  THE  CORRESPONOING  TRANSFER  TIME  THIS  SUBROUTINE  CALCULATES  THE 

FOLLOVNING  vectors: 

1)  THE  INITIAL  VELOCITY  VECTOR  WHICH  WILL  TAKE  ONE  IN  A PRECISION 

integration  from  r (t-il  TO  CrCti)  , AND 

2)  THE  FINAL  POSITION  VECTOR  C(La')  VVHICH  ONE  WOULD  ARR.IVE  AT  IF  ONE  USED 

THE  ABOVE  initial  VELOCITY  VECTOR  V-rC'Li')  AND  UPDATED  USING  ONLY  A 

CONIC  CALCULATION.  THIS  VECTOR  IS  REFERRED  TO  AS  THE  OFFSET  TARG  E T V ECTO  R . 

INITVEL  IS  CALLED  BY  •- 

Plcjl  (or  Pll)  , CALLIVEL  , SAlt.l  , MANUPARM 
HAVEGUES  IS  CALLED  BY  t 
SA(ti.9  . 


7)  PL + 2 


l)  RINIT^  = tlCtj')  , INITIAL  POSITION  VECTOR,  IN  METERS  , AT  2”. 

?]  VINIT^  = YCti)  , INITIAL  VELOCITY  VECTOR, IN  METERS/CSEC,  AT  2''.  IT  IS  USED  TO 
determine  WHETHER  THETRANSFER  ANGLE  FROM  THE  INITIAL  POSITION 
VECTOR  TO  THE  TARGET  VECTOR  IS  LESS  THAN  OR  GREATERTHAN  190*.  IT  IS 
ALSO  USED  TO  SPECIFY  THE  TRANSFER  PLANE  IF  AND  ONLY  IF  THE  TARGET 
VECTOR  LIES  WITHIN  THE  CONE  . 

3)  RTARG y = r (t,  j')  , THE  TARGET  VECTOR  , IN  METERS  , AT  . IFNjV=0  IT  IS  THE 

TRUE  TARGET  VECTOR  . IF  Ni=  <J>  IT  IS  THE  OFFSET  TARGET  VECTOR. 

4) DELLT4  = t-c,  DESIRED  TRANSFER  TIME  FROM  C (t^)  TO  r i)  , I N C SEC  , AT  2*®. 

5)  INTIME  = -t,  , TIME  OF  VALIDITY  OF  E(ti^  , IN  CSEC  , AT  2’’®  . 

6}  PL.  = Ni  , THE  NUMBER  OF  OFFSETS  TO  BE  USED  IN  CALCULATING  THE  OFFSET 

TARGET  VECTOR  . IT  IS  ALSO  EGUAL  TO  THE  NUMBER  OF  ITERATIONS  MINUS  1 . 
Ni=(Jl  IMPLIES  A SINGLE  CONIC  CALCULATION  BUT  NO  INTEGRATION  NOR 
OFFSET  CALCULATION.  IN  THIS  CASE  RTARG  v IS  ASS  U M ED  TO  B E TH  E 
OFFSET  VECTOR. 

7)  PL  + 2 = e , THE  CONE  ANGLE  OF  A CONE  MEASURETD  ABOUT  - C(ti)i  IN  REVOLUTIONS, 

AT  2°. 

8)  GUESSW  = f,  , A FLAG  , IS  CLEAR  IF  AN  INITIAL  GUESS  OF  co+  r IS  TO  BE  INPUT  TO 

LAMBERT,  IS  SETlFCOtr  IS  NOT  INPUT  BUT  MUST  BE  CAL.CUL  ATED 
BY  LAMBERT  . 

9)  COGA  = cot  Y , THE  INITIAL  GUESS  OF  cot  Y IF  F,  IS  CLEAR  . 

10) B27FLA&  » AFLAG,  IS  CLEAR  IF  EARTH  IS  CENTRAL  BODY  AND  SUBROUTINE  SHOULD 

CALCULATE  WITH  NOMINAL  SCALING  , IS  SET  IF  MOON  IS  CENTRAL  BODY 
AND  OFF  - NOMINAL  SCALING  IS  REQUIRED  . 
n)  XI  = INDEX  REGISTER  CONTAINING  VALUE  USED  BY  LAMBERT  TO  SET  UP  PROPER 
M-  - table  , IS  -2  FOR  EARTH  , IS  -lOD  FOR  MOON  . 

12)  AVEGFLAG  - A FLAG  , IF  SET  ITER  CTRj  IS  SET  EQUAL  TO  E,  1 F CLEAR  ITERCTR,  IS  SET  EOuAL 

13)  PUSH  LIST  POINTER  IS  AT  THE  GENERAL  VALUE  PL,  WHERE  0 6PL6  38D.  ^OD  . 

1)  VIPRIME^  = Xt^i)  , the  velocity  REQUIRED  AT  TIME  -fc , IN  ORDER  TO  REACH  rxlPi)  'N  A 

PRECISION  MANNER  IN  TIME  INTERVAL  , IN  METERS/CSEC  , AT  Z''.  THIS  IS 
the  final  VELOCITY  OUTPUT  FROM  LAMBERT  AND  IS  THE  VELOCITY  USED  IN  THE 
VELOCITY-TO-BE-GAINED  EQUATIONS. 

2)  RTARG,  = C(ti),  THE  COMPUTED  OFFSET  TAR  GET  VECTOR  , IN  METERS  , AT  2®’. 

3)  VTPRIME,  = , the  FINAL  PRECISION  VELOCITY  VECTOR  RESULTING  FROM  A 

PRECISION  UPDATE  OF  THE  INITIAL  POSITION  VECTOR  CCL,)  AND  THE  REQUIRED 
INITIAL  VELOCITY  VECTOR  v,  iPi)  IF  N,  F O . IT  IS  TH  E FI  NAL  CONIC  VELOC ITY 
VECTOR  RESULTING  FROM  A CONIC  UPDATE  OF  E(t,)  awd  C(t  j)  IF  N,  = (?.IT  IS  IN  M ETERS/ 

4)  DELVEET,  = AV  , THE  VELOCITY  TO  BE  GAINED  , IN  METERs/CSEC  , AT  2’  . 

5) RATT1,=  c't  (Lj.)  , the  POSITION  VECTOR  RESULTING  FROM  A PRECISION  INTEGRATION 

FROM  CCFj)  USING  VxCL,)  AS  THE  INITIAL  VELOCITY,  IN  METERS,  AT  Q^/Z". 
fe)  COGA  = cot  r , cotangent  of  FLIGHT  PATH  ANGLE  OF  THE  VECTORS  r (t,)  AND  VT(ti)  5 
MEASURED  FROM  THE  VERTICAL  , AT  Z®. 

7)  NORMSW  = ■F^,  A FLAG  , IS  CLEAR  IF  THE  TARGET  VECTOR  EtC-Li)  LIES  OUTSIDE  OF 
THE  CONE  , IS  SET  IF  ErC'^a)  LIES  INSIDE  THE  COME. 

■9)ITERCTRs=  ITERATION  COUNT  USED  IN  LAMBE.RX. 

9)  PUSH  LIST  POINTER  IS  AT  1*0. 


MffilDUMnffMnON  LM 
OMMHOgC.  MASS. 


AAQUO 

CUIDANCE  AND  NAVICATKM 

COMMON  TARGETING  SUBROUTINE 
INITVEL  , MiDSIM 


LUMINARS  ID 


DOCUMENT  NO. 

FC-37G0 


ENTER  HERE  IF 
>NIT!^L  GUESS  OF 
cotr  NOT  AVMLf^BLE 


ENTER  HERE  IF 
INITIAL  GUESS  OF 
CO+  r 15  AVAILABLE 


^INITVEL^ 


(^AVEGUE^ 


■fi  IS  SET  TO 
INDICATE  TO  LAMBERT 
AN  1N\T)AL  GUESS  OF 
CoT  T IS  NOT  AVAILABLE 


AN  ENTRY  AT  HAVEGUES 
ASSUMES  THAT  THE  FLAG 
F^=  GUESSW  HAS  BEEN  CLEARED 
BY  the  CALLING  ROUTINE, OR  BY 
PREVIOUS  USE  OF  WiITVEL. 


SHIFT  BINARY  POINT  TO  OFF 
NOMINAL  SCALING,  C(t,)  AND 

from  toe’-’’  and 
y(Li)  from  z’  toe®. 


FOR  MOON 

j CENTERED  SYSTEM  INITH 
off-nominal  scaling. 


NO  SHIFT  required  > 
USE  NOMINAL  SCALING 


j ■ii^miTVEL-1. 


I 


FOR  EARTH  CENTEREDi 
SYSTEM!  OR  MlOOVl 
CENTERED  SYSTEM 
WITH  Nominal 
SCALING. 


ITCTR, 


--1 


I 


INITIALISE 
N,  TO  -1 


ITERATION  COUNTER 


C0HY4p— C05(pl+2) 
SCALED  AT  2=- 


VTAR&TAGs  - 


■PL. 


R1VECv-«-RINITv 
R 2V  E C V — RT  ARGl,, 
TDESI  RED-- DELLT  a 


FORM  THE  COSINE  OF 

THE  cone  angle  e . 

STORE  ITERATION  COUNT  N,  . IF  N,  = ijl  DO  A 
CONIC  UPDATE  ONLY.  IF  N,  iKti  DO  A PRECISION 
INTEGRATION  WITH  N,  OFFSETS  . 

MOVE  E(t,^,ET(TO  and  -bp  INTO  THE  CORRECT 
LOCATIONS  FOR  INPUT  TO  LAMBERT.  RZVECy 
IS  USED  FOR  STORING  THE  SU  CCE  SSI  VE  VALUES 
OF  THE  OFFSET  VECTOR  r(ti)  AND  IS  HERE 
INITIALI-ZED  TO  the  value  CT(ti)  . 


SET  PUSH  LIST 
POINTER  TO  ((iD 


4lDy  = 

^ Ml  ~ Il(ti) 

MPACy  — UNIT(RINITy') 
SCALED  AT  Z’ 

b = [ u,.,  X 

UNy  — UNIT  ( MPAC 

Scaled  at  2' 

UN  IT 

„X  VIHlTv) 



CCS  <t>  = Li,.,  ■ CT(ti) 

MPACp—  (pDy-  UNIT(RTARGly) 
SCALED  AT  2^ 

K IS  ORTHOGONAL  TO 
cUi)  AND  YC-ti)  . 


(J)  IS  THE  ANGLE  BETWEEN  THE 
INITIAL  POSITION  VECTOR  CC-til  AND 
THE  TARGET  VECTOR  LT(tj,'l  . 


INITIALISE  Fi  PRIOR 
TO  TEST  THAT  FOLLOWS. 


TO  NEXT  SHEET 


mr 

mmmgmmim  lab 

BMSS. 


/WAIST 
DOCAIR 
APPTD 


AIYXIO 

CUIDANCC  AND  MWICATION 


COMMON  TARGETING  subroutines 
INITVEL,  MlOSIM 

PFPLAPO  .SEI  Fr.TMlI  PPFP.RFT 


luminary  id 


OoSKiNTNOr 

FC-3760 


REV  3 


1 SHEET  4 OF  18 


FROM  PRECEDING  SHEET 


THISISTHE  BEGINNING 
OF  THE  M^'N  LOOP.  GO  THRU 
LOOP  1 TIMES  . 


COME  HERE  IF  Et(Lj') 
LIES  INSIDE  THE  CONE  . 


(INITVEL2. 


WITHIN  THE  MAIN  LOOP 
Hi  AND  € ARE  CONSTANTS  , 
\ YES 


[SET  

f,(NORMSw) 


IS  SET  TO 

INDICATE  TO  LAMBERT 
THAT  IS  INCLUDED 
AS  INPUT  . 


EDv- — MPAC7»-RZVEC  V 
BOTH  SCALED  AT  Z”/2” 


STORE  r(-ti')  = I 
AND  r (t^')  , WHERE  cCtil 
IS  AN  INTERMEDIATE  VALUE 
OF  THE  OFFSET  VECTOR  . 


Cp(^t)  = 1^(^l)  't-]  rp(tO  IS  the  VECTOR 

MPAC^— (MPACv-UNv)  DMv  PROJECTION  OP  C (til 
SCALED  AT  ON  TO  A.  . 


COME  HERE  IF  rT(tO  LIES 
OUTSIDE  The  CONE  . 


LEAVE  cleared 
fl(NORMSW) 


INITVEL; 


fi.  IS  CLEAR  TO  INDICATE 
TO  LAMBERT  K IS  NOT 
INPUT  BUT  MUST  BE 
CALCULATeD . 


NOTE;  THE  TEST  cos^iS-  cosE  IS 
EQUIVALENT  TO  cos  t>  ? cos  (100- El 
WHICH  IS  equivalent  TO  THE  TEST 
<tlS190°-e.  IF(Jl$10O°-e  THEN 
the  TARGET  VECTOR  CTC't.i')  LIES 
OUTSIDE  THE  CONE. 


FORM  -rpCti^l 

MPAC^*-  ZDy-MPACy 
SCALED  ATZ«/Z" 


FORM  THE  COMPONENT  OF 
C(Ej)  ORTHOGONAL  TO  . 


FORM  rp(ti')]uMn.  THIS  IS  A UNIT  VECTOR  ORTHOGONAL 

■; — ~r‘  TO  A,  AND  HENCE  IN  THE  PLANE 


RZVEC^—  ifcD  ■ MPAC^, 
SCALED  3Y 


REPLACE  INTERMEDIATE  VALUE  OF  OFFSET  TARGET  VECTOR  Cltz') 
BY  A VECTOR  OF  EQUAL  LENGTH  BUT  ORTHOGONAL  TO  A.  AND 
IN  THE  PLANE  OF  r('ti')  AND  L.  THAT  IS,  c(Ti)  IS 
ROTATED  ABOUT  THE  ORIGIN  , IN  THE  PLANE  OF  C (til  AND  t , 
UNTIL  IT  IS  IN  THE  PLANE  DEFINED  BY  C (ti)  AND  V(ti)  . 


IS  FIRST  PASS 
THRU  THE  LOOP  . 


NO  I 

IS  A SUBSEQUENT! 
PASS  THRU  [ 
THE  LOOP . i 


— — d(Fi1 

RTAR&l;;^RZVEC.^ 
SCALED  AT  Z'^’/Z" 


SINCE  C(t,')  IS  INITIALLY  SET  EOUAL  TO 
Dt(Fi)  , this  OPERATION  (PERFORMED  ON  THE 
FIRST  PASS  only)  is  EQUIVALENT  TO 
ROTATING  CtCtO  IN  THET  SAME!  MANNER 
AS  c (Fi'l  WAS  ROTATED  . 


S6  = B(c(-ti)-{4  X E(t,)}  ) 
GEOMSGNj—  SI&N(RZVEC^-[uNvXRlVEC^j) 


INITVEL  ASSUMES  THAT  IN  THE 
CALCULATION  OF  Sg  THE  PLANE 
change  is  NEVER  MORE  THAN  90' 


TO  NEXT  SHEET 


«IT 

HfeWu—ffTwriow  im 

GMIRIDOF,  fIMSS. 

imAWi  ^ ^ y-  ■ 

PRWW 

IZAPftM 

^S£/Tfr0 

At*(M.ST 

ooodw  ^.<7. 

AFIH'D  ri. 

APMIQ 

OltOANCE  MD  WWtCATION 

COMMON  TAR&ETIN&  SUBROUTIWES 
INITVEL,  MIO&IM 
PFPIAPQ  SEj  FF.TMW^^^.SF.T 
LUMINARY  ID  ^ 

T — r FC~37oO 

I SHEET  5 OF  18 


FROM  PRECEDINO  PAGE 


Xl-« RTXl 


RESTORE  Xl  PRIOR  TO 
CALL  TO  LAMBERT. 


ITERCTR  ■ 


/ LAMBERT  \ 

/ CALCULATE  \ 
INITIAL  velocity) 

\ / 

\FC33feO  7 


LAMBERT  input; 

1)  RlVECv  = CCti")  , THE  INITIAL  POSITION  VECTOR  . 

2)  R2VEC^  , INTERMEDIATE  VALUE  OF  THE  OFFSET  VECTOR. 

3)  TDES1RED5= -b-i,,  DESIRED  TRANSFER  TIME. 

4)  GEOMSGN=  Sq  , A FLAG,  IF  POSITIVE  06180°  IF  NEGATIVE  0 > 190°. 

5)  VTARGTA&s=  Nj,  A FLAG,  IF  NON-'EERO  IS  NOT  CALCULATED. 

6.)  GUESSW  = F,,  A FLAG,  IF  SET  co+-r  IS  NOT  INPUT. 

I)  C0&Ae=  oo+tt,  an  initial  GUESS  IF  IS  CLEAR. 

S)  NORMSW  = Fj  , A FLAG  , IF  CLEAR  Fu  IS  CALCULATED  . 

9)  UN.,  = 4 PNIT  vector  , NORMAL  TO  AND  v(ti  ) IF  SET. 

10)  Xlj  = INDEX  REGISTER  CONTAINIMG  VALUE  TO  SELeCT,u.-TABLE. 

II)  ITERCTRs  = 5 ITERATION  COUNTER  . 

LAMBERT  OUTPUT  ; 

1)  VVEC.,=  VELOCITY  REOUIRED  AT  TIME  t. , IN  ORDER  TO 

ARRIVE  AT  THE  OFFSET  POSITION  r (.1:2')  IN  A CONIC 
MANNER  AT  TIME  Uj. 

2)  VTARGETy  = XtCPi')  5 VELOCITY  AT  THE  OFFSET  POSITION.  IF 

N,  = 0 THIS  VALUE  IS  CALCULATED  BY  LAMBERT  AND 
IS  SUBSEQUENTLY  USED.  IF  Nj  O THIS  VALUE  IS  NOT 
CALCULATED  BY  LAMBERT  AND  THE  VALUE  SUBSEQUENTLY 
USED  IS  THE  OUTPUT  OF  INTEGRV5  . 

3)  C0GA=  co+r  , VALUE  CONVERGED  TO  BY  LAMBERT  . 

4)  SOLNSW  - f 5 , A FLAG,  IF  CLEAR  THE  SOLUTION  IS  VALID. 


CLEAR  fl  \S  CLEARED  BECAUSE  A VALUE  OF  coF  Y IS  AVAILABLE  NOW 

F,(GUESSW)  AS  AN  INITIAL  GUESS  TO  LAMBERT  ON  THE  NEXT  PASS 

. J THRU  the  loop. 


VlPRIMEy— VVECy 

scaled  at  z’/z^ 


STORE  THE  VELOCITY  V.,.(ti')  IN  ITS  OUTPUT  LOCATION. 
FOLLOWING  THE  LAST  PASS  THRU  THE  LOOP  THIS  VALUE 
WILL  BE  USED  IN  THE  VE  LOCITY  - TO- BE -GAI  NED  EQUATION  • 


TEST  THE  ITERATION  COUNT 


(VTARGTAGjY 


INITVEL7 


IF  THE  ITERATION  COUNT  IS  i),THEN 
PROGRAM  PREPARES  TO  RETURN  AFTER 
A SINGLE  COMIC  CALCULATION. 


WAKE  UP  THIS  JOB 


/ JOBSLEEP 
/put  THIS  job  TO 
SLEEP  UNTIL 
IHTEGRA"^ION 
\ IS  AVAILABLE  , 
\fC3030  7 


^ INTSTALL \ 

' CHECK.  IF  THE  \ 

integration  ROUTINE" 

. IS  BEING  USED  / 


IF  integration  ROUTINE  ISBEING 
used  PUT  THIS  ROUTINE  TO  SLEEP 
UNTIL  INTEGRATION  IS  AVAILABLE  • 
IF  INTEGRATION  ROUTINE  IS  NOT 
BEING  USED  RESERVE  ITS  USE  FOR 
THIS  ROUTINE- BY  SETTING  THE  FLAG 
INT-FLA&2  . 


THE  integration  routine  is 
NOW  R^ERVED  FOR  THIS  JOB. 


TO  NEXT  sheet 


AraUiB 

WtDAWZ  AND  NWWATtON 


COMMON  TARGETING  SUBROUTINES 
INITVEL,  MIDGIM 


TROM  PRECEDING  SHEET 


CLEAR  earth  is 

mookiflag  central 
BODY  . 


SET  MOON  IS 

MOONFLAG  CENTRAL 
~~>s^  BODY  . 


RCV^-^  R IVEC  RINIT^ 

VCV^  •« VIPRIMEy 

TETj,- INTIMEj 


SET  UP  C(ti)  , 

AND  -t-i  FOR  INTE&RVS. 


t.2=  ti  + t, 


TDECl--INTIME  + DeLLT4- 
SCALED  at  2'^® 


TDECl  IS  THETIME  TO 
INTEGRATE  TO,  ANO  IS 
REQUIRED  BY  INTEGRYS. 


CLEAR 

INTYPFLG 


IS  CLEARED  TO  INDICATE  TO  INTEGRYS 

THAT  PRECISION  INTEGRATION  BY  THE  ENCKE 

METHOD  IS  DESIRED  ; NOT  CONIC  INTEGRATION  . 


/ INTEGRYS  \ 

/integrate  state 

VECTOR  cKiIjUtCTi) 
\ UP  TO  time  'Ll 
\ FCS350  7 


vtargeTv-* — yatt 
scaled  at  2''/2® 


INTEGRYS  input; 

!■)  RCYy  = CC-ti),  INITIAL  POSITION  VECTOR 
Z)  YCV„  = Y^(-ti'),  VELOCITY  VECTOR  THAT  IS  OUTPUT 
FROM  THE  LAMBERT  SUBROUTINE. 

3)  TET  = ti,  time  of  validity  OFSTATE  VECTOR  , 

4)  TDECl  = ta  ,TIME  TO  integrate  TO. 

INTE&RVS  OUTPUT: 

X)  RATTl  = CtC-L^')  ')  THESE  ARE  INTERMEDIATE  VALUES  OF 
2^  VATTl  = y.T  (t-z)  ) the  target  STATE  VECTOR 

RESULTING  FROM  A PRECISION  INTEGRATIOW. 


21  VATT: 


SAVE  THE  INTERMEDIATE  VALUE  OF 


ITCTRj  — ITCTRji-1 


INCREMELNT  the  ITERATION  COUNTER  . 


CONTINUE  ITERATING 


r(ti)  = c{tj')-[c'T(ti1-  CrCt  i)  ] 
R2VEC„—  R2VEC.,-(RATT1^-  RTARGl^) 
SCALED  AT  Q'^’Z  2®"'. 


■ , , have  iterated  a TOTAL  OF 

^ N, +1  TIMES  , USI  NG  Ni 
N SHS OFFSETS.  NOW  PREPARE 
N.  TO  EKIT. 


COMPUTE  A NEW  INTERMEDIATE  VALUE  OF 
THE  OFFSET  TARGET  VECTOR  WHERE 

cVCtil  IS  AN  INTERMEDIATE  VALUE  RESULT- 
ING FROM  A PRECISION  INTEGRATION  AND 
rTCTil  IS  THE  TRUE  TARGET  VECTOR. 


INITVEL  2 


GO  BACK  TO  THE 
BEGINNING  OF 
THE  LOOP  . 


imimMfNMTION  IM 
OMHHWS,  MASS. 


DRA«N_fj 
PMMA  P. 


muto 

CUIMMOE  mm  MWICATION 

COMMON  TARGETING  SUBROUTINES 
INITVEL,  MIDGIM 


luminary  id 


FC-3760 

[ ThKT  7 Of 


(INITVEL  6 , 


RTARGl^^ RZVEC^ 

SCALED 


COME  HERE  WHEN 
FINISHED  ITERATING 
N,+  1 TIMES  . 


STORE  THE  LAST  COMPUTED  UALUE  OF  THE 
OFFSET  TARGET  VECTOR  IN  ITS 

OUTPUT  location. 


, 1 ^ WOULD  COME  HERE  DIRECTLY  IF  Nj  = ({)  . IN  THIS 

mnitvelt)  case  rtarg^  still  contains  the  input 

^ 1 ^ VALUE  which  is  , FOR  Ni=  <t>  , THE  OFFSET  VECTOR  . 


AV  = YT-(tj)  - Yeti') 

DELVEETSy— VIPRIME^  - VIN 
SCALED  AT  e’/Z'. 


VTPRIMEy- — VTARGETy 
SCALED  AT  E’/E® 


AY  IS  the  VELOCITY-TO-BE-GAINED. 

. IT  IS  THE  DIFFERENCE  BETWEEN  the 

, REauiRED  VELOCITY  Yt  Cti)  (THE  OUTPUT 

OF  LAMBERT)  AND  THE  EXISTING 
VELOCITY  Y(ti). 

STORE  YiCti)  , the  final  VALUE  OF  THE 
FINAL  PRECISION  VELOCITY  VECTOR,  IN 
ITS  OUTPUT  LOCATION. 


FOR  OFF-NOMI- 
NAL moon  ^ 

CENTERED  , 

SYSTEM.  ^ 

SHIFT  DATA  TO  BRING  BINARY 
POINT  BACK  TO  nominal  SCALING. 
SCALE  RTARGi^AT  Z*’  AND 
VTPRIME^,  VIPRIME.^  ,DELVEET3„ 
AT  Z’’. 


FOR  EARTH  CENTERED  SYSTEM 

OR  nom\nal  moon  centered 

SYSTEM. 


DATA  IS  AT  NOMINAL 
SCALING  . NO  SHIFTING 
15  REQUIRED. 


THE  FOLLOWING  IS  A,  GEOMETRICAL  REPRESENTATION  OF  WHAT  OCCURS 
WHEN  THREE  PASSES  ARE  MADE  THROUGH  THE  MAIN  LOOP  IN  INITVEL. 
IT  USES  2 offsets  and  3 ITERATIONS  (Nj='2.).  THE  SUBSCRIPTS  OF 
ai,(i)AND<3)  FOLLOWING  THE  VARIABLES  REFER  TO  THE  ITERATION 
NUMBER  . 


(t) 

, (D 

^ CT(t-j)=TAR&ET  VECTOR 

\ 

\ 


© CCtO 


y ('Ll)  ® 


ITERATION 

1 


ITERATION 

2 


ITERATION  J @ 

3 ® 


tl  (fc  J IS  THE  GIVEN  POSITION  VECTOR  , y(t,i)  IS  THE  GIVEN  VELOCITY  VECTOR  . 

CjCti'i  IS  THE  GIVEN  TARGET  VECTOR.  FOR  COMPLETENESS  AND  CONSISTENCY  IN  USE 
OF  SUBSCRIPTS  THE  TARGET  VECTOR  C-r(ti)  CAN  BE  CONSIDERED  TO  BE  THE 
BEROETH  offset  VECTOR  r(ti)(o). 

yT(ti)  ,1,  IS  CALCULATED  BY  LAMBERT  USING  C ILO  FROM  ® AND  E(tt')  = CTC-ti')  FROM  (J)  . 
C IS  CA  LCULATED  BY  PRECISION  INTEGRATION  USING  !C  (L  i'l  FROyi®AND 

PROM  @ . 

r (tl)  m IS  the  offset  vector  RESULTING  FROM  SUBTRACTING  THE  MISS  VECTOR 
between  C^Li^,^,FROM@AND  CTC-tijFROM^FROM  the  offset  VECTOR£;(ti)(<,)  = CTCt.i)  from 

yrCt,,')  (11  IS  CALCULATED  BY  LAMBERT  USING  CCtl)  FROM  © AND  !C(ti)(.ii  FROM  © . 
£V(.ti')^il  IS  CALCULATED  BY  PRECISION  INTEGRATION  USING  tLiXi)  FROM  ® AND 
i^TCtildi  from  © . 

- (tl)  (.1)  IS  THE  offset  VECTOR  RESULTING  FROM  SUBTRACTING  THE  MISS  VECTOR 
BETVVEEN  rV(ti)(i)  FROM  @ AND  CtCFi)  FROM  @ FROM  THE  OFFSET  VECTOR  c(tj)(^l) 

from  © . 

^T(ti)(il  IS  CALCU\_ATED  BY  LAMBERT  USING  C (t  i)  FROM  © AND  tCti^di  FROM  (g)  . 
cVCti'),,)  IS  CALCULATED  BY  PRECISION  INTEGRATION  USING  FROM  © AND 

^Ttti^,!  from  ®. 

the  ROUTINE  NOW  PREPARES  TO  EXIT  . IT  CALCULATES  THE  VELOCITY-TO  - BE- G AIN  ED 

AS  THE  difference  yTCti)  (31  - y (tj)  . 

THERE  is  no  calculation  OFTHE  OFFSET  VECTOR.  CCti)  CORRESPOND!  NG  TO 
E’t  (t  i)  (31  . 

the  final  OUTPUT  VECTORS  ARE  : 

1)  yTCti-lc,!  FROM  @ 

L (tildi  @ 

S)  rV(ti)^3i  FROM  © 


iKSiRMBmrrioN  m 

cMmma.,  mass. 
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1&AFRC9 
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IF  THE  ACTIVE  VEHICLE  IS  PEBFORMIMG  THIS  COMPUTATION  THIS 
routine  computes  the  POSITIVE  MIDDLE  GIMBAL  ANGLE 
FOR  THE  ACTIVE  VEHICLE  ASSUMING  THE  K.-AX1S  IS  ALIGNED 
WITH  THE  Ai  IMPULSE  THRUST  DIRECTION  . IF  THE  PASSIVE 
VEHICLE  IS  PERFORMING  THIS  COMPUTATION  THIS  ROUTINE 
TRANSFORMS  THE  INPUT  VELOCITY  VECTOR  FROM  INERTIAL 
COORDINATES  TO  LOCAL  VERTI CAL  COORDINATES  OF  THE 
ACTIVE  VEHICLE. 


1)  RINITy  = C , RADIUS  VECTOR  OF  ACTIVE 

VEHICLE,  IN  METERS,  AT  Z”  . 
a)  VINITy  = Y,  VELOCITY  VECTOR  OF  ACTIVE 
VEHICLE,  IN  METERS /C<SEC  AT  Z"'. 

3)  ODv  = AY,  DELTA  VELOCITY  VECTOR  OF 

ACTIVE  VEHICLE  IN  INERTIAL  COORDINATES, 
IN  METERS  /CSEC  , AT  Z’’  . 

OUTPUT  ; 

Ij  MGLVFLAG  = A FLAG  , IS  CLEAR  IF  MIDDLE 
GIMBAL  ANGLE  WAS  COMPUTED  , IS  SET  IF 
DELTA  VELOCITY  VECTOR  TRANSFORMED. 

2)  +M&Aj,  = MIDDLE  GIMBAL  ANGLE  , IN  REVO- 

LUTIONS IN  RANGE  O TO  1 , AT  Z®. 

3)  DELVLVC,  = A Y^y  , DELTA  VELOCITY  VECTOR 

OF  ACTIVE  VEHICLE  IN  LOCAL  VERTICAL 
coordinates  , IN  METERS /CSEC  , AT  Z’’. 


nVDMMMMTION  LM 
C/MBRIME.  MASS. 
[>gAlWI  ^ 

■ 

jwmsT  

HJCJUR  .1-^ 


APOUO 

GUIOANOE  MO  NAVICIITION 

COMMON  targeting  ^BROUTINES 
tNtTVEL,  MIDSIM 


lominak>  id 


DOCUMENT  NO. 

FC-31G0 


COME  HERE  IF  THE  PASSIVE 
VEHICLE  15  PERFORMIWG 
THIS  CALCULATION  . 


PERIAPOl  SETS  UP  AND 

PERIAPOl)  RESCALES  VVEC  V 
j ^ RVEC^  FOR  PERIAPO 

^ SET  UP  yZ  FOR 

i<.2s  RTXZs|  SCALING  CHANGE 


VVECy  MPAC^ 
SCALED  AT  Z'’/Z^ 
RVEC^-*—  (pVv 
SCALED  AT 


-RTXls 


FOR  MOON  primary 
BODY  C(ti)  and 

y(ti)  ARE  rescaled 

FROM  2^’ AND  2^ 

TO  Z'^''  AND  2® 


RESTORE  XI 


STORE  RETURN  ADDRESS 
IN  NORMEX 


1 SETRAD  input: 

/ setrT'd'A  = earth, 

/ RAP  \ FOR  MOON. 

/ GET  RADIUS  OF  \ SETRAD  OUTPUT: 

\ PRIMARY  BODY  / 1)MPAC=  ("b,  RADIUS 
V— — ^ y OF  PRIMARY  BODY 

TO  SPECIFIC  POINT 

1 ON  SURFACE  OF  BODY, 

I AT  2«/  2"  . 


/ APSIDES  \ 

/ CALCULATE  \ 

TERICENTER,  APOCENTER. 
\ ECCENTRICITY  / 


SE“  POSH  LIST 
POINTER  TO  ED 

ZDi- 

SCALED 

M PAG  p 

AT 

APSIDES  input; 

« RVECv  = t(ti) 

2)  VVEC„ 

3)  XI  = - 2F0R  E^RTV^ 
-lOD  FOR  MOON 

APSIDES  output; 

1)  0D  = Tp 

2)  MPAC  >=  r* 

3)  ECC  = e 

4) >A  - TABLE 


STORE  Cfc 
IN  PUSHLIST. 


THIS  SUBROUTINE  COMPUTES  THE  TWO  BODY 
APOCENTER  AND  PERICENTER  ALTITUDES, 
GIVEN  Cl)  THE  POSITION  AND  VELOCITY  VECTORS 
FOR  A POINT  ON  THE  TRAJECTORY,  AND  (2) 

THE  PRIMARY  BODY  INDICATOR  . 

PERIAPO  CALLED  BY  ; 

SSO  .1  (in  P30,  P3T)  ,C5I  ( in  P32  - P3  5 , 
PTZ-PTS),  MANUPARM  . 

PERIAPOl  CALLED  BY  I 
CSI  (IN  PBZ-PBB,  PTZ-PTB),  PB4--P35, 
PT4-P75,  P3e-P39. 

P ERI APO  INPUT  : 

1)  RVEC  = E (ti)  T POSITION  VECTOR  TO  POINT 

ON  TRAJECTORY,  IN  METERS,  AT  2^’/2'^'’. 

2)  VVECv  = Yeti')  , VELOCITY  V ECTOR  TO  POI  NT 

ON  TRAJECTORY,  IN  METERS/CSEC  AT  2'’/2  ^ . 

3)  Xl^  = PRIMARY  BODY  INDICATOR  IN  INDEX 

register  1,-Z  for  EARTH, -lOD  FOR  MOON. 

PERIAPOl  input: 

1)  «)Dy  = C(ti),  IN  METERS,  2”, 

2)  MPACy  = Y(t,),  IN  METERS  /CSEC  , AT  2"'  . 

3)  RTXlg  = PRIMARY  BODY  INDICATOR,  IS  -2 

FOR  EARTH,  -lOD  FOR  MOON  . 

4)  RTXZj  “ VALVE  USED  FOR  RESCALING 

ic(t.i5  and  Y(ti)  for  OFF- nominal  scaling, 

ISO  FOR  EARTH  j 2 FOR  MOON  . 

OUTPUT : 

1)  2D„=  r-^  ■>  RADIUS  OF  APOCENTER,  IN 

METERS,  AT  2^V2’-''. 

2)  4Do=  A-ai  APOCENTER  ALTITUDE,  IN 

METERS,  AT  2^’/ 

3)  60„=  Fp  , RADIUS  OF  PERICENTER  , IN 

METERS,  AT  2^’/  2^’'  . 

4)  3D„=  A.p,  PERICENTER  ALTITUDE,  IN 

METERS,  AT  2^’/  2^''  . 

5)  ECC5=  e , ECCENTRICITY  , AT  . ' 

6)  XXXALTo=  Tb  , RADIUS  OF  PRIMARY  BODY, 

IN  METERS  , AT  2^’/  2^“'. 

7)  ^ - TABLE  FOR  PRIMARY  BODY. 

8)  PUSH  LIST  POINTER  ATIOD. 


4Do-^  MPACj-  XXXALTj, 
SCALED  ATZ^’/Z^’ 


6D„—  MPAC£«-0Dr 
SCALED  AT  2.’-’/ 2” 


SD^- MPACj,-  XXXALTp 

SCALED  AT  2^’/  2'’ 


STORE  APOGEE 
altitude  X-a 

IN  PUSHLIST. 


STORE  rp 
IN  PUSHLIST  . 


STORE  PERIGEE 
ALTITUDE  Ap 
IN  PUSHLIST. 


I SET  UP  FOR 

Ffa  = Flp  earth.  is  r 

RADIUS  TO  - 

0D,^RPAD  p 0 

I SCALED  AT  2ipp,,,, 

^373338  METERS 


XI  = -lOD 

I SET  UP 

I T rn 

’ y'LZ  MOON. 

0D„— |rLS„|  !C_^  is 
SCALED  ATZ*"'  THE 

terT:  landing 

site 

VECTOR. 


MPAC5^0Do 


LOAD  . 


•Ca  1 , Fp  , -Ct  p 

e .,rb  ,>^-TABLE  j 


MIT 

HV&HHMIffrATION  LM 
CAMKtMt,  MASS. 


AKUO 
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, SELECT  MU 


.cmoonplg;: 


Xls  — 

- 2 

SET 

UP 

XI,- 

lOD 

X2s—- 

0 

FOR 

EARTH. 

X2s  — 

Z 

XI  « - lOD 


S£y  UP 

MP  AC  ^ mutable 

SCALED  AT  2” 


VV/^M 


MPAC—  MUTABLE +141 
SCALED  AT  2 '* 


THIS  ROUT\ME  SETS  UP  VALUES  OF  /+  AND  VV/^ 
APPROPR\ATE  FOR  EITHER  EARTH  OR  MOON  A5 
PRIMARV  BODY  AND  DEPENDS  OlsJ  CONDITION 
OE  CMOONELG  . 

CALLED  BY  •-  P32,  P 33  , P34  , P 35  , P 38  , P 39  , 
PTa,  P73  , P74  , PTE,  P7e  , P7  9 . 

INPUT ; 

1)  CMOONFL&  = PERMANENT  CSM 
STATE  FLASjIS  CLEAR  FOR 
EARTH  PRIMARY  BODY,  IS  SET 
EOR  MOON  . 

^ output: 

RTMU  =>L  , AT  2’^  . 

2)  RTSRl/MUj,=  VVT^  ,AT2”/2'*. 

3) RTXls  = PRIMARY  BODY 

INDICATOR  , \S-2  FOR  EARYH, 

— lOD  FOR  MOON  . 

IC;— I 4)RTX25  = SCALING  PACTOR  FOR 

■M  SETUP  nominal/off-nominal  DATA, 

— FOR  IS  O FOR  NOMlNAL(  EARTH), 

' MOON.  IS  2 POR  OFF  - NOMINA\_(m00N) 


PTXI5— XI  s 


STORE  INDEX  REGISTER  1, 

THE  PRIMARY  BODY  INDICATOR 


RT5R1/MU„—  MPAC„ 
SCALED  AT  2P/2” 


XI  =-10D 


SET  UP 
■ FOR 
“ EARTH. 


— — — — — — — - FAR 

MP  AC„-^  MUTABLE +8D, 

SCALED  AT  2 30 


.CMOONFLG^ 


SHIFT  MPAC  TO 
SCALE>i-=^^,  AT  23^ 


THIS  GIVES.+^  IDENTICAL  SCAUNG 
FOR  BOYH  NOMINAL  AND  OFF- 
NOMINAL  CASES . 


■RTMU^  MPAC, 
SCALED  2’‘ 


P STORE  A+  • 


RTX2.—  X2  5 


STORE  INDEX  REGISTER  2, 
THE  scaling  FACTOR  . 


clear ^ 
PINALFUG 


INTERIM  PASS  THROUGH  RENDEZVOUS 
PROGRAM  COMPUTATIONS. 


GO  XO 
VNJ445 


mir 

MJIRMMHRWTION  LM 
CMMUISK,  MMS. 
7 


ANUO 

GUI  DAME  AM  NAVIGMKM 

COMMON  TARGETING  SUBROUTINES 

INIT  YEL  , MIDGIM 

PERIAPO,  SELECTMUj  PRECSET 

luminary  id  ^ oociwtm  ho. 

FC-37GO 

DEV  3 I «CET  14  OF  IB 


PRECSET 


) 


STORE  RETURN  ADDRESS 
IN  NORMEX 


TDEC2., 


MPACr 


L.EMPREC 


TEMPORARY 
OF  t.,  . 


INPUT 


STORAGE 


THIS  ROUTINE  PERFORMS  A PRECISION  UPDATE 
OF  THE  ACTIVE  AND  PASSIVE  VEHICLES  TO 
A SPECIFIED  TIME  . 

CAUUED  BV:  , PBS  , P 39  , PREC/TT, 

ADVANCE 

input; 

1)  TDEClo  = MPACo  = time  TO  INTEG- 
RATE TO  > IN  CSEC  AT  2’“. 

output; 

1)  RACT3„  = CCTi'),  POSITION  VECTOR 


OUTPUT 


OF  ACTIVE  VEHICLE  AT  t 
METERS  , AT  2“  . 


i ) 


IN 


precision  integrate 

UM  STATE  VECTOR 
UP  TO  t/  ^ 


RCVy=E(t.,^  1)  RATT^=j:(tO 

Si  vcv,  = v:(ti'|  3VATTy  = li(tO 


FC3350 


3)TETt.=  P. 

4')TDECT=ti 


2)  TATo  = t ; 


lemstore 


STORE  INTEGRATED' 
vLM  STATE  VECTOR 


2)  VACTSy  « , VELOCITY  VECTOR 

OF  ACTWE  VEHICLE  ATti  , IN 
METERS /CSEC  , AT  2’ . 

3)  RPASSSy  = CCtx),  POSITION  VECT- 
OR OF  PASSIVE  VEHICLE  AT  , IN 
METERS  , AT  2 

4)  VPASSSy  = YCPi),  VELOCITY  VECT- 
OR OF  PASSIVE  VEHICLE  AT  Tx,  IN 
METERS/CSEC  , AT  2''. 


SH15, 


TDEClj—  TDEC2  j, 


SET  UP  Px  FROM 
TEMPORARY  STORAGE, 


CSM  PREC 

'PRECISION  INTEGRATE' 
CSM  STATE  VECTOR 

UP  TO  Px 

FC33SO 


CSM  STORE 


STORE  INTEGRATED 
CSM  STATE  VECTOR 


SH15 


RETURN 

VIA 

\NORMEX  / 


INPUT 

1)  RCVy  = E CP  O i)  RATTy  = C (Px) 

2)  VCVy  = V.  (t.)  2)  VATTy  = Y(Px) 

3) TETt,=  Pi  3)  TATb  = Px 

4) TPEC1^=  Px 


GENERAL  INFORMATION 
SUBROUTINES  CALLED  ON  OTHER  CHARTS 


NAME 

FLOW  CHART 
NUMBER 

DESCRIPTION 

WHERE  CALLED 

LAMBERT 

FC1360 

CALCUL.ATE  INITIAL  AND  FINAL  VELO- 
CITIES GIVEN  THE  INITIAL  AND  FINAL 
POSITIONS  AND  TIME 

INITVEL  (SH  6) 

INTSTALL 

FC1350 

RESERVE  INTEGRATION  ROUTINE 

FOR  CALLER 

INITVEL  (SH  6) 

INTEGRVS 

FC1350 

PERFORM  PRECISION  INTEGRATION 

ON  STATE  VECTOR 

INITVEL  (SH  7) 

APSIDES 

FC1360 

COMPUTE  PERICENTER,  APOCENTER, 
ECCENTRICITY 

FERIAPO  (SH  13) 

LEMPREC 

FC1350 

PERFORM  PRECISION  INTEGRATION  ON 
LM  STATE  VECTOR 

PRECSET  (SH  15) 

CSMPREC 

FC1350 

PERFORM  PRECISION  INTEGRATION 

ON  CSM  STATE  VECTOR 

PRECSET  (SH  15) 

CUESSW  (fj) 


FINALFLG 


INTYPFLG 


MCLVFI.AG 


MEANING 


SET  CLEAR 


WHERE 

SET 


WHERE 

CLEARED 


MOONFLAG  MOON  IS  SPHERE  EA  RTH  IS  SPHERE  INITVEL  (SH  7)  INITVEL(SH7) 
OF  INFLUENCE  OF  INFLUENCE 


NO  STARTING 
VALUE  FOR 
ITERATION 


LAST  PASS 
THROUGH 
RENDEZVOUS 
COMPUTATIONS 


LM  IS  ACTIVE 
VEHICLE 


CONIC  INTE- 
GRATION 


LOCAL  VERTICAL 

COORDINATES 

COMPUTED 


NORMSW  (f,)  UNIT  NORMAL 
INPUT  TO 
LAMBERT 


STARTING  VALUE 
FOR  ITERATION 
EXISTS 


INTERIM  PASS 
THROUGH 
RENDEZVOUS 
COMPUTATIONS 


CSM  IS  ACTIVE 
VEHICLE 


ENCKE  INTE- 
GRATION 


MIDDLE  GIMBAL 
ANC.LE  COMPUTED 


LAMBERT  COM- 
PUTES ITS  OWN 
UNTT  NORMAL 


AVEGFLAG 


CMOONFLG 


AVERAGEG  (SERV- 
ICER) DESIRED 


CSM  STATE 
VECTOR  IN 
LUNAR  SPHERE 


GEOMSGN„  (S„)  IS  PLUS  IF  TRUE 
“ ^ ANOMALY  LESS 


VTARGTAG- 


GUESSW  (fj) 


THAN  180“ 

It^  NON-ZERO 
IS  NOT 

CAIXIULATED 


NO  STARTING 
VALUE  FOR 
ITERATION 


AVERAGEG  (SERV- 
ICER) NOT 
DESIRED 


CSM  STATE 
VECTOR  NOT  IN 
LUNAR  SPHERE 


IS  MINUS  IF  TRUE 
ANOMALY  GREATER 
THAN  180° 


IF  ZERO  v„  (12) 
IS  CALCULATED 


STARTING  VALUE 
FOR  ITERATION 
EXISTS 


INITVEL  (SH  4 ) 


INITVEL  (SH  4)  INITVEL  (SH  6) 


VARIABLES  USED  (BOTH  PUSH  LIST  AND  ERASABLE) 


LCXIATION 


ITERCTR^ 


'max’  CONTROL  VALUE  FOR 

LAMBERT  ROUTINE 


tj,  TIME  TO  INTEGRATE  TO,  IN  CSEC 


tj,  IN  CSEC 


r(t,),  IN  METERS 


223/227 


E3,  1516 


v.j,(tj).  IN  METERS/CSEC 


E3,  1542 


r(t),  POSITION  VECTOR,  IN  METERS 


K5,  1654 


r (tj),  TN  METERS 


E5,  1654 


IN  METERS 


■ z i 

2-J  ,2- 


TDESIREDp 


tjj,  IN  CSEC 


E5,  1670 


RETURN  ADDRESS  OF  INITVEL 


TEMPORARY  STORAGE  OF  TDECl 


TEMPORARY  STORAGE  OF  XI 


E5,  1673 


VTARGTAG,, 


IS  THE  NUMBER  OF  OFFSETS  USED  IN 
INITVEI,  ROUTINE 


E5,  1701 


VTARUET 


E3,  1702 


v(t),  VELOCITY  VECTOR,  IN  METERS/CSEC 


E5,  1743 


RETURN  ADDRESS  Op’  PERIAPO  AND  PRECSET 


E7,  1450 


ITERATION  COUNTER 


E7,  1603 


COS  (e) 


E7,  1653 


«raio 

GUWMCE  MB  MVIMnON 


COMMON  TARGETING  SUBROUTINES 
INITVEL,  IVIIDSIM 


CONSTANTS  USED 


NAME 


HALFREVj^ 

EPSFOURjj 


MUTABLEj^ 
MUTABLE  + 6D 
MUTABLE  + 8Dj2 
MUTABLE  + 14Dt- 


PHYSICAL  MEANING 

SCAUNG 

COMPUTER  VALUE 

0.  5 REVOLUTIONS 

2° 

1,  0 B-1 

15/360  REVOLUTIONS  (EQUALS  15°) 

2° 

0.  0416666666 

STANDARD  RADIUS  OF  PAD  37-B 

IN  METERS,  EQUALS  20,909,  901.57 

FT 

229 

6373338  B-29 

Mg,  IN  M^/CSEC^ 

236 

3.  986032  ElO  B-36 

1/Vm^  in  CSEC/M^^^ 

2-1^ 

0.  50087529  E-5  B17 

M^,  IN  M^/CSEC^ 

230 

4.  902778  E8  B-30 

1/Vm^.  INCSEC/M^^^ 

2-14 

0.45162595  E-4  B14 

»MT 

MimimmrtoN  um 
dwmtiME,  fmss. 


IVOliO 

GUIDANCE  mm  HAVtOmON 


COMMON  TAR(3ETlNe  SUBROUTINES 
I N ITVEL,  MIDGIM 


luminary  id 


IS?P(P! 
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ORBITAL  PARAMETERS  DISPLAY 


Major  Subroutines  and  External  Entry  Points: 


V82PERF 

Sh. 

2 

V82CALL 

Sh. 

3 

TICKTEST 

Sh. 

14 

SR30.  1 

Sh. 

15 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Orbital  Parameters  Display 

DRAWN 

PRGMR 

lal ioltS 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3770 

ANALST 

APPR'D-^»Wa.r(Tl.&JiiU 

Keyed  in  by  ’ 

a^i^naut | I 

V82E 


V82E 


Request  orbital 
parameter  display 


^V82I 

^er:^ 

r 

^TESTXACTN 
Test  for 
extended  verb 
activity 
■fTTSl'So 


Previous  extended  verb 
active.  Error  exit 


No  other  extended 
verb  active 


^LM/ENl^ 


PRIOCHNG 

Give  this 
job 

priority  7 
FC-  3030 


FALTOIT 
Turn  on 
operator 


V82CALL 
Do  orbital 
parameter 
display 
Sh.  3 


V82CALL  is  a 
NOVAC  job 


via  3UPDXCHZ 
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(^82CALFJ 

1 Vi'  mrFRFT 

>/\Is  AVEKAGEG  running? 

Is  Yes  AVERAGEG  running 

C^VEGFLAG  ^ 

V82GON 

No  AVERAGEG  \on. 

not  running 


Load  option 


Recycle 


(V82GOFF 


GOXDSPF 


V04  N12  ' 

Terminate 

Rl;  Option  Code  2 

R2:  Option  X assumed 

. Proceed 


TICK  TES  r 

Schedule 
WAITLIST  < 
. S i for  ' osec 
Sh.  i4 


Allow 

inter- 

rupts 


(V82GOFLP) 


Display  Option  Code  2: 
Request  choice  of  ship 
Option  X;  1 = this  ship 
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Zero  nags  for  TICKTEST 
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V82GOFF1,  the  state  vector  update  subroutine 
has  had  a chance  to  set  one  of  the  flags  in 
V82FLAGS 


Yes,  a flag  on 


No,  no  flag  on 


(! 


FLAGGON 


5) 


GOXDSPF 

V16  N44 

Rl;  Apogee 
R2:  Perigee 
,R3:  TFF 


Display:  monitor 
Apogee 
Perigee 
TFF 

Terminate 


Rl  XXXX.  X dec  naut  miles 
R2  XXXX.  X dec  naut  miles 
R3  XXBXX  dec  min.  sec. 
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V82GOI^)  AVERAGEG  running 


(y82REDS^ 


FINDVAC  jobs  will  be  done  before 
NOV  AC  jobs  of  the  same  nominal 
priority.  Therefore  the  next  test  on 
NEWJOB  will  result  in  V82GON1 
being  completed  before  V82GON 


Does  present  job  still  iiave  liighest 
priority  ? 


/ GOXDSPF  \ 

/ V16 

N44 

Rl: 

Apogee 

\ R2: 

Perigee  , 

\ R3: 

TFF  / 

(Recycle 


Proceed  or 
terminate 
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R1  Apogee:  XXXX.  X 

naut.  miles 
R2  Perigee:  XXXX.  X 

naut.  miles 
R3  TFF  : XXBXX 

min.  - sec. 


B50FF 


Ends  extended  verb 
which  has  called  TESTXACT 


MIT  INSTRUME.VTATICN  U3 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Orbital  Parameters  DispPy 

ORAVi'N  .'.r  , 

V • ' - ' 

PRGMR  ' f. 

LUMINARY  ID 

DOCU'.'ENT  NO. 

FC-3770 

AfULSr 

OOCMR : m <• ' -1  ; 1 

r ,!  .■ 

A P P R ' D \ 

REV  2 1 SHEET  a Of  2 5 
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/LOADTIME^ 
Load  present 
time  into 
MPACn 
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MPACp,=  present  time 

^ 28 
in  csec  <?  2 
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TDECl^ 
1 TSTART82 

— MPAC 

<— MPAC 

> 

N ext 

Sheet 

Time  for  state  vector  update 
Time  for  internal  use 
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Does  astronaut  choose  this  vehicle  ? 
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OPTIONX 
V =1?  / 


. OTHSHIP 


/ OTHPRECX 
/Integrate  statm 
vector  of  CSM 
\to  present tim9> 

\ FC-3350/ 


THISSHIP 


OTHPREC  ^ CSMPREC 
Input-  permanent  CSM  state  vector 
TDECl:  time  to  . — - 

integrate  to  / -pHIt 

Output:  / Integr 

^ RATT,r  position  \ state  ^ 

V 1 \ irnpcif 


THISPREC  = LEMPREC 
Input:  permanent  LM 
state  vector 
TDECl  = time  to 
integrate  to 


vector  V 

VATTy  velocity  ' 

vector 

TATj^  time  of  RATTy 


/ THISPREC  \ = xime  xo 

Integrate  Lm\  integrate  to 
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. present  time/  ^ _ •>: 

\ Ft- 3550  / vector  @2-- 

' 1— ' VATTy:  velocity 

r vector  @2 ' 

TATj-.:  time  of 
RATTy. 

VATT„ 


(BOTHSHIP) 


r V,  1 /V77— 


RONE.^ 

VONE.^ 

TFF/RTMUj2 

HPERMIN^ 


- RATTy 

- VATTy 
1/RTMUEq  #X2 

MINPEREj^  #X2 


Output  of  conic  routines  put  into  R3  0 
locations: 

1/RTMUE  = . 50087529  X lo'  m.  @2"^  ' 

1/RTMUM  = . 45162595  Xio'^m.  (g2'^^ 

MINPERM  = 10668m.  @2^'^!  . . 

V minimum 

MINPERE  = 91440m.  @2  ^ [ altitude 

X2  index  register  contains  zero  if  space- 
craft is  in  earth's  sphere  of  influence, 

2 for  moon's  sphere,  so  that  proper 
value  will  be  picked  up. 
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SR30.1 


Calculate 

llAPOXj^.  HPERXj^^ 


TFF 


D’ 


-TPER,. 


Input:  RONE..  = present  position  vector: 

''  _ 
meters  @2 

VONE..  = present  velocity  vector: 

* 7 

m/csec  @2 

V82EMFLG:  Flag  on  = moon's  sphere 
F'lag  off  = eartli's  sphere 
RPADTEM„  = radius  of  pad:  meters 

@2^9 

Output:  HAPOX„  = apogee  altitude  above  pad 

^ 29 

radius:  meters  @2 

HPERXp,  = perigee  altitude  above  pad 

^ 29 

radius:  meters  @2 


Sh.  15 


TFFq  = time  of  free  fall:  csec  @ 2 
-TPERjj  = time  to  perigee:  csec  @2 


28 


28 


via  LOADTIME  (EC-3150) 


TSTART82^  TIME2j^  - TSTART82q 


Time  elapsed  since  TSTART82 


Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Orbital  Parameters  Display 

1 DOCUMENT  NO. 

LUMINARY  ID  fC-3770 

Ianalst 

/S/30/L9 

APPR'DH?^W.fW.r.^t-^ 

REV  2 ISHEET  9 Of  25 

From  Preceding  Sheet 


— - ■<TPER 


TICKTFF) 


TICKPER, 
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priority  07 


V82GON1 
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29 
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n 

Velocity  vector  m/csec  @2 


Earth's 

sphere 


Is  \ 
LMOONFLG 


Is  LIVI  in  moon's 
^ sphere  ? 
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EARTHGON) 


Clear 

V82EMFLG 


Indicate  earth  sphere 
for  SR30.1 


ImoongonJ 


Se! 

V82EMFLG 


Indicate  moon 
sphere  for  SR30.1 


FF/RTMU„ 1/RTMUE„ 

D D 29 

HPERMIN„  *•  MINPERE-,  91440  m@2 
D D (300,  000  ft.  ) 

MPAC^  - RPAD^ 


TFF/RTMU^*-  1/RTMUM 


HPERMINj. 

MPAC, 


MINPERM^ 


10668  m 
@2^'^ 

(35,  000ft.  ' 

RLS.^  ■= 

positior. 
vector 
of  moor, 
landing 
site. 
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SAPOXjq. 

HPERX. 

TFF 

V D’ 

-TPER„ 
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15/ 
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Input: 

RONEy  = position  vector  in 
meters  @2^^ 

VONE^  = velocity  vector  in 

meters/csec  @2^ 
RPADTEM  = pad  radius  in 

OQ 
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V82EMF1-Xj  on  = moon. 

off  = earth 
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HPERXp.  perigee  height  above 
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pad  radius  @2 
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TFFj^  time  of  freefall  i 
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/'I  scheduled  by  V82GOFF,  and  then  at  1 

^lICKlESln  beginning  of  each  cycle  for  1 second 

■ .1-—  i __  1 T_ 


intervals 


Has  astronaut  killed  this  extended  verb? 

;tvbac't>J^^ 


An  extended  verb 
is  a job,  and 
cannot  be  ter- 
minated by  a 
task 


Reschedule  TICKTEST  for  1 sec 


-TPERp  - -TPERj^  + ISECg 

r 

\TASKOVEiy^ 


Increment  -TPER 
by  one  sec 


TFFj^  +lSECg 


ASKOVER 


Increment  TFF 
by  one  sec 


TASKOVER/ 
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TFFCONMU: 

Input: 

RONE„  = position  vector  in  meters  E@ 

2^^  M@2^^ 

VONEy  = velocity  vector  in  m/csec  E@ 

2"^  M@2^  , 

TFF/RTMU  = l^lTT  E@2  M@2 

Output: 

RMAGlp,  = radius  at  time  of  RONE  in 

^ 9Q  97 

meters  E@2  ^,  M@2 

NRMAG,-,  = normalized  RMAG,  nrom  count 

in  XI  meters  E@2 
,27-NR 


M@2 

NR  = -XI  = -norm  count  for  NRMAG 

semilatus  rectum,  weighed  by 
,38-2NR 


TFFNP 


D' 


NR:  meters  E@2'' 
,36-2NR 


TFFVSQ 


D- 


M@2'- 

^77 


V 


vvT  present  velocity. 


normalized  l/meters  E@2 
-18 


-20 


M@2 

TFFALFA„:  q weighted  by  NR,  in  l/meters 


lO-NA 


D' 

E@2-‘^v  - 

TFFRTALFp,:  \/q  normalized  E@2 

Me2-='-“ 

X2  = -NA,  norm  count  for 
TFFI/ALFq  = signed,  semi-major  axis 

weighted  by  NA.  In  meters 

E@2^^^  2NA^jgi220  + 2NAj^ 

VONE',,  = VONE -TFF/RTMU  in  l/(M  1/2) 


@2'^°/2'^ 


TFFRP/RA: 
Input: 

TFFALFA 


D 


TFFNP 


D 


= Q = (semi-major  axis)  ^ in 

, -1  ,3,0-26  + NR,„-24  + NR 

meters  @2  /2 

semi-latus  rectum  in  meters 


@238  - 2NR/236  - 2NR 
set  by  TFFCONMU 


X2 


29  27 

RPER^  = perigee  radius  in  meters  @2  /2 

J-'  29  27 

. s:  riorliiiG  in  nofs  + or*G  /S}9  ^ 

'D 


RAPOt^  = apogee  radius  in  meters  @2^^ ! 2^ 
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Yes  - earth's/^  jg 

sphere ^^8  2EMIi'I^G 

\ off  / 


No  - moon*s  sphere 


MPACj^  MPACq  • 2 Scaling  necessary  for  moon 


MAXCHK 


I Below 
MAX 


Is  ^ 
MPAC  : 
MAXNM, 


MPAC, 


Yes  too  large 
for  display 


MAXNM, 


Return  via 
^ QPRPJT  / 


^ If  apocenter  exceeds  the 
I maximum  possible  for 
I display,  program  chooses 
I maximum. 


Next  Sheet 


MIT  INSTRU.V.lNTATiaN  LAB 
CAMBRIDGE.  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


Oi'biLai  Pa '-aiucters  DtSL'la 


ANALSr I 

OOCMR  I'  - •-  AV  A ' ■ luminary  ID,  FC-3770 


APPR'D^  2 


SliCET  170? 


CM  I 


From  Preceding  Sheet 


EAPOXj. 

MPACr 


MPAC  +4, 


MPACjj  location:  meters  @2^“^ 

RPERp  - RPADTEMj^  Prepare  to  store  HPERj^ 

RPER„  - RPADTEM„  Save  for  comparison  with  HPERMIN 


Store  into  apocenter 


Yes  - earth 
sphere 


RPERjj  - RPADTEMj^ 


earth's  sphere? 
Is 

V82EMFLG\ 

. off 
\ ? / 


No  - moon' 

' 

MPACjj  - 

MPAC-  2'^ 

From  Preceding  Sheet 


Next  Sheet 
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MPACt~,  = RPER„  = terminal  radius  length, 

D D ?q  27 

meters  @2^^/2 

TFF/RTMUj^  = \I-SJ7 cseclm^^^  @2"^'^/2‘^^ 
NRMAG„  = NORMXl  (RMAG)  meters 

XI  = Norm  factor  for  RivIAG 
TFFNP„  = semilatus  rectum  meters 
@238  - 2X^236  - 2X 

TFFALFA  = Q meters  @2'^®  + ^^2"^^  ^ 

TFFRTALF  = ^y^meters^^^  @2^°  ' ^^/2®  " ^ 
X2  = Norm  count  for  TFFRTALF 
TFFl/ALF  = signed,  semimajor  axis,  meters 
,22  - 2x2 ,„20  - 2x2 


@2‘ 


72" 


Output: 

MPAC 


D 


= time  to  perigee  in  csec  @2 
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MPACj^  - 

• -MPACp 

(SKIPTPE^ 


-TPER. 
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MPAC 


D 


MPACj^ 

HPERMINj^P  RPADTEMj^ 


'CALCTFF'' 

Calculate 
time  of 
free  fall 

FC-3370 


CALCTFF 

Input: 

RONE 


VONE^,  RMAGlj^,  MPAC  = 


RPADTEM+  HPERMIN,  TFF/RTMU 


NRMAG 


D’ 


D' 

XI.  TFFNPj^,  TFFALFAj^, 


TFFRTALFp,  X2,  TFFl/ALF 
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TFF  = time  of  free-fall,  in 
csec  @2^^ 


Note: 

If  the  trajectory  fails  to  reach  HPERMIN  P 
RPADTEM  (300,  000' or  35,  000')  then  TFF 
will  be  displayed  as  59B59 


TFF 
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ASTRONAUT 


ERROR 

EXIT 
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PURPOSE:  TO  DISPLAY  AT  ASTRONAUT  REQUEST 
LSC  CALCULATED  RENDEZVOUS  PARA- 
METERS (RANGE , RANGE  RATE ^ THETA ) 


/ V85E  \ 
/request  RENDEZ-j 
Ivous  parameter) 

\ DISPLAY  / 


(V83PERF 


/TESTXACTX 
TEST/ SET 
EXTVBACT 
.(BITS  3^5) 
\fc-3100  7 


R31CALL 

V WAITLIST  TASK/ 
' IN  2 CSEC  N 


TEST  EXTENDED  VERBS  BUSY  OR  PRIORITY 
DISPLAYS  USING  D5KY 

OUTPUT  : SET  BITS  3 4 5 OF  EXTVBACT  TO 

SHOW  EXTENDED  VERB  DISPLAY  SYSTEM 
BUSY.  BLANK  EVERYTHING  EXCEPT  MM 
^ VERB. 


SCHEDULE  task  TO  DISPLAY 
RENDEZVOUS  PARAMETERS 


vENDOFJOB/ 


R31CALL 


V83CALL 
, FINDVAC  UOB  / 
y PRIORITY  ( 

^ 03  \ 

SH3  ' 


SCHEDULE  JOB  TO  UPDATE 
RENDEZVOUS  PARAMETERS  DISPLAYS 


, DSPDELAY 1 


/FIXDELAY 

'delay  TASK 
. 1 SEC. 


'^IT  12  OF^ 
EXTVBACT 

XsETfX 


DISPN5X 
NOVAC  JOB  / 
> PRIORITY  < 
Q5  \ 
SH9 


SCHEDULE  JOB  TO  DISPLAY 
RENDEZVOUS  PARAMETERS 


XTASKOVER . 


iisiKunniniriCN  lai 

CMMKfMC.  MASS. 


1 1 1 II  mi  wmmn  m l 


Arauo 

OUIMMCE  urn  WWICATfON 


R31  - RENDEZVOUS 
PARAMETER  DISPLAY 


LUMINARY  ID 


V63CALL 


NEXT  SHEET 


FROM  PRECEDING  SHEET 


LM  ONJ  SURFACE 


R315URF 


/LOADTIME  \ 

/ LOAD  PRE- \ 

/sent  time  lN-0 
\to  MPACq  / 
\fC-3150  / 


OUTPUT  : MPACd  = 

TIMEE^TIMEI 


. MPACb 


SERVICER  IS  RUNNING 


/ LEMPREC  \ 

/ PLANETARY  \ 

/nertial  intes\ 

^RATION  OF  LM  / 
\STATE 


INPUT  ; TDECl^ 

LM  STATE 
VECTOR 

OUTPUT  : UPDATED  LM 
STATE  VECTOR 
RATTlv^  VATTlv 

tat,. 


/intstallX 
/test~for\ 
/availability  of\ 
\integration/ 
\FoT350  7 


OTHCONIC 


CLEAR 

MOONFLAG 


EARTH  IS  SPHERE 
OF  INFLUENCE 


BASETHPv 

BASETHVv 

BASETIMEo 


LOAD  LM  STATE  VECTOR  FOR 
1NTEGRV5 

LM  POSITION  VECTOR 
LM  VELOCITY  VECTOR 
time  of  INTEGRATION 


PERMANENT  LM  STATE 

IN  lunar  sphere 


IS  \ 

___<^MOO  NFLG 
yesN.  set  ? / 


MOON  IS  SPHERE  SET 
OF  influence  MOONFLAG 


NEXT  SHEET 


mmmkmmm  lm 

zmmmm.,  mk. 

WtAWH 

/y/c/iuid 


R31-  RENDEZVOUS 
PARAMETER  DISPLAY 


LUMINARY  ID 


BaawEWwi. 

FC-3780 

1 S«T  4-  » 11 


FROM  PRECEDINS  SHEET 


SET 

INTVPFLG 


CONIC  INTEGRATION  TO  BE  USED 


«CV„  VCVv,TET„,TDECl„ 
OUTPUT  :ratt.,vatt.,tat„ 

\fC-3350  7 


lOTHCONIC 


RONEy 

VONEy 


STORE  LM  STATE  VECTOR 
LM  POSITION  VECTOR 
LM  VELOCITY  VECTOR 


/INTSTALLX 
/test  FOR  \ 

Availability  of 

\lNTEGRATION  / 

Vc-3350  7 


SET 

INTYPFLG 


CONIC  INTEGRATION  TO  BE  USED 


MPACo 


TATr,  LOAD  TIME  TO  INTEGRATE 


•MPACd  STORE  TIME  TO  INTEGRATE 


CLEAR  EARTH  IS  SPHERE 

MOONFLAG  OF  INFLUENCE 


1 LOAD  CSM  STATE  VECTOR  FOR  INTEGRVS  ROUTINE 

RCVy  BASEOTPy  CSM  POSITION  VECTOR 

VCVy  BASEOTVy  CSM  VELOCITY  VECTOR 

TETr  ■« BASETIMEo  TIME  OF  STATE  VECTOR 


^ IS  X 
'LMOONFLQ 
\ SET?  / 


PERMANENT  LM  STATE  IN  LUNAR  SPHERE 


SET  MOOM  IS  SPHERE 

MOONFLA©  OF  INFLUENCE 


/pdI^^^'csmX  RCVy, VCVy, tet„,tdeci„ 

AtATE  vector  To\  output  : RATTy  , VATTy 
\SPECIFIED  time/ 

\fC-3350  7 


AMUiO 

MIMNa  MB  NMMMIM 


R31- RENDEZVOUS 
PARAMETER  DISPLAY 


LUMINARY  ID 


/PRiOCHNG\ 
^ CHANGE 
PRIORITY 
TO  22 
\ FC-3030  / 


INHIBIT  INTERRUPTS 
BY  SERVICER 


SET 

PUSHLIST 

TO 

ZERO 


RONEy-^ 

RNy 

VONEy 

VNy 

PLOv  

V(C5M)v 

PL6v  

B(CSM)^ 

MPACo  — 

PIPTIMEj, 

LM  POSITION  VECTOR 
LM  VELOCITY  VECTOR. 


TIME  FROM  SERVICER 


FROM 

SERVICER 


/PRIOCHNGN 
RETURN 
PRIORITY 
TO  03 
\ FC-3030  1 


/ IS  \ 
MUNFLAG 
SET 


/ I NTSTALL\ 
/TEST  FOR  \ 
AVAILABILITY  OR 
\ INTEGRATION/ 
\fC-33SO  / 


PLOy R(CSM)^  X REFSMMAT^  PLOv  = RATTy 

PL6v  V(CSM)y  X REFSMMAT„  PLSy  = VATTy 


CLEAR 

INTYPFLG 


SET 

PUSHLIST 

TO 

ZERO 


NEXT  SHEET 


APOUO 

MMMNCE  ANP  NAiriCArKM 


RBI-  RENDEZVOUS 

parameter  display 


LUMINARY  ID 


FROM  PRECFOIMG  SHEET 


0ISPN5X 


Rl-RANGEo  - XXX.XXN.M.  'I 
rz-rrateb  -xxxx.x  ft/sec 
R3-RTHETA0-XXX.XX  DEG  J 


RENDEZ- 

VOUS 

PARA- 

METERS 


PROCEED/ 

TERMINATE 


CLEAR 
BIT  5 OF 
EXTVBACT 


TERMINATE  MARH  DISPLAY 


\.ENDOFJOB  . 


tmut 

l M*  MVICMION 


R31- RENDEZVOUS 
PARAMETER  DISPLAY 


LUMINARY  ID 


ERASABLES  (CONTINUED) 


MEANING 


SCARING 


VCVv 

VELOCITY  VECTOR  OF  VEHICLE  BEING  1 PDATED 
VIA  INTEGRVS 

M CSEC 

2’ 

RN^- 

POSITION  VECTOR  OUTPUTTED  FROM  SERVICER 
ROUTINE 

METERS 

22fl 

VN,. 

VELOCITY  VECTOR  OtTPUTTED  FROM  SERVICER 
ROUTINE 

M CSEC 

2' 

PIPTIMEj-^ 

TIME  STATE  VECTOR  UPDATED  VIA  SERVICER 

CENTISECONDS 

2^ 

BISPI.AYS  MEANING  I'SKl) 


V16N5-i  R1  --  RANGEy  --  XXX.  NX  NAUT.  MI.  --  DISTANCE  BETWEEN  VEHICLES  SH.  !> 


R2  --  URATE, 


R3  --  RTHETA, 


XXX.  XX  FT.'SEC  --  ^VELOCITY  BETWEEN  VEHICLES 

•-  XXX.  XX  DEG  --  ANGLE  BETWEEN  I.M  LOS  AND 
LOCAL  HORIZONTAL 


MIT 

INSIMMCIffWiaN  LM 
CMMIMI,  MASS. 


«MU0 

m 

wtm'mk 


IBESZl 

'.kWfl  I 
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PARAMETER  DISPLAY 
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V90PERF 

Sh. 
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R36 

Sh. 

3 
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R36;  RENDEZVOUS  OUT- 
OF-PLANE  DISPLAY 

PRGMR 

mm 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3790 

ANALST 

iiiJllUVSiAKIr'SEABIH 

■■ 
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ygopERF 


Extended  Verb 
inltialLzes  R3  6 


DSP  TEMXg TIG 


Set  time  of  event  to  t-„ 
for  first  display 


From  Preceding  Sheet 


R36INT 


I 

\ 

f 

OTHPREC  \ 
Precision 
update  CSM 
to  TDECl 
, FC-3350  / 


OTHPREC  = CSMPREC 


RPASS36- 

0D< 

UNP3  6<— 

TDEC1<- 


RATT 

unit  (VATT) 

-unit  [Yp  X unit  (Ep)] 

TAT 


Store  passive  ve- 
hicle parameters 
from  precision 
integration 


THISPREC 
Precision 
update  LM 
to  TDECl 
, FC-3350  , 


THISPREC  = LEMPREC 


Next  Sheet 
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R36:  RENDEZVOUS  OUT- 
OF-PLANE  DISPLAY 


DOCUMENT  NO. 

FC-3790 


SHECT  4 Of  9 


LUMINARY  ID 


From  Preceding  Sheet 


Line  of  sight  vector 


Active  vehicle  dis- 
tance from  plane  of 
passive  vehicle 
(along  passive  Y-axis) 


Out -of -plane  component 
of  active  vehicle  velocity 


Active  vehicle  momen- 
tum (plane)  vector 


Active  vehicle  unit 
forward  horizontal 


Next  Sheet 


From  Preceding  Sheet 


Next  Sheet 


Unit  vertical  x cos 

(U,  • r . ) = vertical 
—L,  A 

component  of  unit 
LOS 


-1 


Unit  horizontal  com 
ponent  of  LOS  = unit 
LOS  = unit  vertical 
component  LOS 


Psi 


Unit  horizontal  of 
active  vehicle  crossed 
into  LOS  projection 
on  horizontal;  result 
compared  with  ver 
tical  for  sense  (par- 
allel up  means  pas- 
sive vehicle  is  left 
of  active  vehicle 
plane/forward  hori  ■ 
zontal.  ) 
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R36:  RENDEZVOUS  OUT- 
OF-PLANE  DISPLAY 

Idrawn 
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LUMINARY  ID 

DOCUMENT  NO. 

FC-3790 

ANALST 

DOCMR 

■■i 

isasi 
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From  Preceding  Sheet 


gle  between 
LOS  vector 
projected  on 
horizontal 
plane  and 
unit  horizon- 
tal active 
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R36:  RENDEZVOUS  OUT- 
OF-PLANE  DISPLAY 

DRAWN  TT) 

JOBBSi 

T DOCUMENT  NO. 

LUMINARY  ID’ 

FC-3790 

ANALST 

APPR'D 

REV  1 [SHEET  7 Of  9 

SUBROUTINES 


alm/end 

FC-3100 

Error  exit 

Sh.  2 

LOADTIME 

FC-3150 

Loads  present  time  into  MPAC 

Sh.  3 

THISPREC 

FC-3350 

ENKE  update  of  LM 

Sh.  4 

OTHPREC 

FC-3350 

ENKE  update  of  CSM 

Sh.  4 

TESTXACT 

FC-3100 

Sets  extended  verb  busy  flag 

Sh.  2 

DISPLAYS 


V06N16N 

Request  time  for  which  Y,  Y,  desired 

V06N90N 

Display  Y,  Y ^ 

bh 

FLAGS 


Name 

Meaning 

When  Set 

Meani^ 

When  CUear 

Where 

Set 

Where 

Cleared 

Where 

Tested 

V37FLAG 

A VERAGEG  (SERVICER) 

A VERAGEG 

Sh.  2 

Flag  7 

running 

(SERVICER) 

Bit  6 

off 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

DRAWN  f 7 

BBI 

PRGMR 

WIm 

ANALST 

iRBII 

Hiinr 

APOLLO  GUIDANCE  AND  NAVIGATION 


R3  6:  RENDEZVOUS  OUT- 
OF- PLANE  DISPLAY 


LUMINARY  ID 


DOCUMENT  NO. 

FC-3790 


REV  1 


[SHEET  8 0f~9~ 


ERASABLES 


DSPTEMX 

Display  buffer  area 

TDEC 

Time  storage  LOS 

RPASS36 

Storage  for  passive  vehicle  position  vector 

UNP36 

Unit  vector  of  passive  vehicle  momentum/ 

plane 

RANGE 

Y,  active  vehicle  distance  from  passive 

vehicle  plane 

RRATE 

Y,  active  vehicle  velocity  component 
normal  to  passive  plane 

RTHETA 

ip,  angle  between  active  vehicle  unit  for- 
ward horizontal  & LOS  projected  into 
horizontal  plane 

MIT  INSTRUMENTATION  LAB 

CAMBRIDGE,  MASS. 

DRAWN  ZP  ~ 
PRGMR 

ANALST 

DKMR  pQS 
APPR'D 
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P40LM 
P40SXT4 
S40.  1 

S40.2,3 


P40  DPS  THRUST 


MAJOR  SUBROUTINES  AND  EXTERNAL  ENTRY  POINTS 


P40  DPS  THRUST  PROGRAM  SH.  2 

CALL  ATTITUDE  MANEUVER  ROUTINE  SH.  4 

COMPUTE  INITIAL  THRUST  DIRECTION  AND  SH.  5 

VELOCITY  TO  BE  GAINED 

COMPUTE  PREFERRED  IMU  ORIENTATION  SH.  7 


PWT 

msTftuMENmrtQRi  lm 
CMMKIBQE,  MMS. 

A^OUO 

MltANCC  MID  mitmm 

P40 

DP5-  THRUST 

ji.iaftag 

1 IJMINARY  1 n OOCWflENT  MO. 

LUMINARY  ID  pQ_33QO 

AtMLSr  0 

DOfflW 

APWO  irL.  , 

____  1 SMtT  1 Of  ‘ 9 

TA  BLE  USED  BY  master  WHICH 

IGNITION  routine  INDEX 


P40TAeLE 

VN 

0fc40 

Co; 

TCP 

ULLGNOT 

a; 

TCF 

C0MFAIL4- 

(z; 

TCF 

GOPOST 

(3; 

TCP 

TA5KOVER 

C-^) 

TCF 

P40SP0T 

(5) 

DEC 

40 

(6) 

o 

> 

steering 

(7; 

TCF 

P40 JUNK 

(11) 

TCP 

WAITABIT 

(11) 

TCF 

P40I&N 

(13) 

TCF 

REP40ALM 

(14) 

MT 

tmuMMArraH  urn 

CMMRtMl,  MSS. 

ARXXO 

QUfMm  AND  NMftOATION 

P4  0 

DPS  THRUST 

5TBS7?? 

luminary  ID  r- Q'r\ r\ 

r C“  j 0 U U 

Ktv  3 1 »«T  2 Of  9 

FROM 

PRECEDIN&  SHEET 


'IS'v  TEST  CSM  DOCKED 
''BIT  13  0^ 


1 

DAPeoOLS  > 

1 

THRESHl  YES^ 

^CSM  DOCKED 
(A  =0j 

i 

i 

DV THRUSH  — A + T H RESH  3 

D VCN  T R — 4 

'"D 

MPAC- 


FDPSp 
• DPSVEX 


P40IN^ 


PERMIT  FULL  THROTTLE 

LOAD  EN&INE  PARAMETERS 
TH  RUST 

DPS  EXHAUST  VELOCITY 


VEX  ; 


-MPACr 


S40.  1 


COMPUTE 


SH4 


S40. 2,3 


COMPUTE 
PREFERRED  IMU 
ORIENTATION 


SH  6 


output:  initial  thrust 

direction 

VSTI6  : initial  value  of 

V&  VECTOR 


I N put  : UT;  RTI&  . REFSMMAT^ 

output;  xscref^ ; preferred  IMU 

orientation  matrix 

FOR  POSSIBLE  IMU 
realignment 


INHIBIT 
INTER- 1 
RUPTS 

PFLITE  DB 


ZERO  ATTITUDE 
ERRORS,  SET  1° 
DEADBAND 
,FC-1440  SH 


P40SXT4 


CALL  ATTITUDE 
MANEUVER 
RO  UTI  NE 


SH  3 


OUTPUT  : LM  MANEUVERED  TO 
DESIRED  ATTITUDE 


TRANSFER  CONTROL  TO 
MASTER  l&NITION  ROUTINE 


IFDELTA-V  MAKEOVER 

INPUT;  DELV5.M^=  DELTA- V 

REQUIRED  IN  INERTIAL  COORDS.  OF 
active  vehicle  at  time  of  ISNITION. 
DELVSABj,=/DELVSIN^/ 

RTlGy  = FOSmON  AT  TI&. 

VTIGv  = VELOCITY  AT  TIG. 

OUTPUT:  UT^=  DESIRED  THRUST  DIRECTION. 

VGTie.^=  INITIAL  VELOCITY  TO  BE 
SAINED  (inert.  COORD.) 

DEUVLVC„=VGTI6  in  local  vertical 

COORDINATES.  r~ 


COMPUTE  INITIAL  VALUE  OF  UT  ( THRUST 

direction)  and  votig  ( velocity  to  be 
gained) 


QTE.MP  •a.A.ve  e,E.TOK.M 
-• — iM  <aTe.vu= 

ClPRET 


DELVTtST) 


EXTt5e.N»NL  CELT  An  V 


•^XDELVFLS'^  LAMBE-RT  AJVA  PO  imT 
SET  / 


VIVJITv-* VT\&v  load  VELOCITY  VE.CTOB.  tNND 

felWITy  -■ R.T\G,^  RN.DIUS  vector.  OF  LVA  FOB. 

1 SET.LVC  rootime 


O . LB 

\SH  5 ^ 


UTy  -i UNIT  (VTI  N RT\<i,  TEVAPOR.INB.Y  BTORKCSE  FOR.  UP  VECTOR. 


, /S0T,6)xV  (T,s)/A  VlV  vy\ 

'5-'-(T,a>F= 


/VTIGv  yR.T\Gw  /THETA>COM(DELVSXgi)  WE.'<bHT/G 
/ RTIGv/^  F 


OD^-* (DELVSINv  • UPv)  UPy 

OCDy-« C>ELVSmy-(D£L‘SIHv  •UPv)UPv  TEVAPOCNR-Y  S.TOBJV3.E  FOB  AVP  VECTOR. 


VSTiGv-— /AVPy/  [;uNlT(^VPv)CO^>Cl4tOc  ) + UMIT(ASVPy  X UPv) -SIN (l4D ^ 

-fr'CDC.LV'SW*^  •UP>^)UP^  ^ 


UM\T(v<3iT\<Oy)  tKiiT\AA\_  TK^?.u^T  o\e.e:cT\ou 

'JGT\‘ov  uojvo  ve\-oc.n-^  to  vect-o^ 

I G£T.\-S/C 


OOv 


/ G ET . UVC  \ 

/ ^ \ \ViP>UT^:  V\\n\^Tw  OOv  -VQTvG.^ 

/COVivE^T  V<oT\<o^\  V V,  V V 

L.OC*kL  VE.R.T  VCAniN  output;  DEU\/L.VC^=  \ViPUT  VEC-Ttot^  \V4 
\ Coo  tg.O\V4f:KT  E*=b  / UOClf<\„  VEVS-T 1 C.  CC>oStO\ViKVE*» 

\ FC-ilGO  7 


UCtM  VV^.  > 

XaTE-VAP  / 


BWT 

msDIMMEmWION  LM 
C^WWIDOC.  MASS. 


A^OliO 

[ mm  PiAvi«ATicfi 
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BQ^2SS^1 


COMPUTE  PREFERRED  IMU  ORIENTATION  MATRIX 
FOR  POSSIBLE  IMU  REALIGNMENT 


S40. 2,3j 


POINTVSMy-^—  K 

'EFSMMAT^  (UTy_) 

SCAXI  Sy-« UNITXy 

(^plusx  ^ 

XSCREFy-* UTy 

PLOy— UNIT  (UTy  X RTIGy) 

order\^ 

yes' 

X RTIG^/^ 

^ FIXY  ^ 

PLOy-« UNIT  (xSCREFy  X VTIGy) 

input:  UTy  = INITIAL  THRUST  DIRECTION. 

RTIGy  = RADIUS  VECTOR  OF  LM  , 

VTIG^  = VELOCITY  VECTOR  OF  LM, 
refsmmat^=  transformation  matrix 

between  brc  system  and  stable 

MEMBER  COORDINATE  SYSTEM. 

output:  pointvsm,^  = lm  thrust  direction  in  sm 

COORDINATE  . 

XSCERF^  = preferred  IMU  ORIENTATION 
MATRIX  . 

. . I TRANSFORM  THRUST  DIRECTION 

\l  TO  SM  COODINATES. 


YSCREF^— PLOy 

ZSCREFy— (YSCREFy  X XSCREFJ 


SET 

PFRATFLG  ' 


PREFERRED  ATTITUDE  COMPUTED 


RETURN  VIA 
\ QPRET  / 


APOUO 

WIMHCI  AND  NAVICATION 


P40 

DPS  thrust 


LUMINARY  1 
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bUBROUT 

f=  AO*=>XTA-  CA.L.L  KTT\"rOOE.  KA/^ME-OVGR. 

S-AO.l  COVAPUTd  \VA\T.IA\— TVAVLU'^'V  d)\e.GcT\OU  NUO  VE.LOC\T'r  To  SAtUED 

cov^pore  F^?2-E:EerR.e.Et=>  \vao  o^\eKrrA.xiov^ 

OM  OTt-\SR-  CLHASe-T-Sa 


e.O  *2-  SOT  VA 

ppu\Te  oe> 

Z-AsTT*EBt.O  ts. 
■^ET  MiMr>e» 
f^E*^TO  R.D  & 
R<bO  EEM 
(^ET.  UVd 
UE^n/‘.F*R.EC_ 
IKJ\TV&V_ 


I MU  ‘S*TKVV)«>  dlAECK^ 

STOR.E:  /i^UAs«VA  C-OOET 

XERO  f^TTlTuOe:  ERROT^*^,'^E.T  1® 

C.OO  CDE*%\euE.O,  Z.E<£.Q  IMPOT  TO  AOTOPW-OT* 
‘EjEt  oe:^tpa,/»^>4c=> 

•^ET  O To  'V^T^OV«40ft»rr  ^e.L.ECjrEC5  v'A.USJ^ 

pese.P05e.vsA  AUTO  AsTT\tuoe  MA.^'^e.uves^ 

COMVEPT  \WPOT  VE-OTOSeXO  l_C>CJN\_  VeVe.T\C_A.U  COOC!.t>\>A 
EMC.VOE.  \KiTEE<SEA<r\oM  OP  UVA  ’^ATE  VEOToS^ 
C/M_cu\— VEL.OO\TT  F"oSe.  T»<\eCS>ET\VsiC3  KA  AVJEvj 


M E AW  \ ^ 

^ET 

CLEARED 

teeteo 

NJOTHR.OT;. 

•bET-  \W\6»T  FULL  TWRCiTTUE 

CL.EAP.EO  -PERM\T  FULL  TMRCTTL.e: 

SH  3 

3 AXI'^PL.Ca 

^ET- UAVJEVJVER.  ST 'rH5?..Ee  AXES» 

CLGAB-tO  -MKWEUVE.se. SFEOF.EO  BT  OViE  K>\^ 

*bH  4 

DEUV  FL<i 

EiET-  EXTERNAL  DtUTKvV  VG  COMPOTAT\OW 
CuEKREO-  LAMSEStT  ^AJMPoiUT}  VO  COMPVJTAT\OVi 

BH  5 

vjOR.M^y^ 

SeT-  vjM'T  MORMAU  c.owvPuTe_o 

CLEARED-UM\T  KlOSeUAU  WOT  CONAPuTE.C> 

SH  6 

PFRATFL-d 

BET- PSEErE^R.E:0  KTT\TUOE.  Oo^^^UTSO 

CLeKR.EO-Pe.EFESeSe.ED  ATTiTUOe  Vic'S  compoteo 
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ENGINOF2 

SIi. 

13 

P40AUTO 

Sh. 

11 

STCLOKl 

Sh. 

12 

MIT  INSTRUMOTATION  IAS 
CAMBAIKC.  MASS. 

APOUO  GUIDANCE  AND  NAVIGATION 

(t,  i '.  'c#- 

hum  i’ab>  Sum 
(Master  ignition  Koulino) 

PIKMR 

IIMINAR)  in 

DOCUMCMT  NO. 

l■C-3840 

ANAIST 

DOCM* 

'•Ml 

«v  3 Is^  1 OF  25  1 

BURNBABY 


GROUP  4 


! 

L 


RtSTART  JOB 
AT  NEXT 
instruction 


i 

WTOTALj,-* 0 

r 

RAO  AUTO 


TEST  PGNC5 
CONTROL  AND  AUTO 

, stabilization  modes  , 


SHll 


MASTER  IGNITION  ROUTINE 

INPUT:  C(WHICH)  = ACRES  OF  APPROPRIATE  TABLE 
FOR  CALLING  PROGRAM. 
TABLES  USED;  PAO  TABLE  - DPS  THRUST 
PAL  TABLE  “ RC5  THRUST 
P42  TABLE  - APS  THRUST 
PIE  TABLE  - APS  THRUST 
ABKTABLE  - ABORT 
PG3TABLE  - DPS  THRUST 


FROM  PRECEDING  SHEET 


EXTRAPOLATE 
state  VECTOR  OF 
CSM  XiTDECl 
>FC-3350 


INPUr.  TDEC1,CSW  STATE  VECTOR 
output:  KATTIy  = POSITION  VECTOR 
VATTl^  = VELOCITY  VECTOR 
TATn  = time  OF  INTEGRATION 


v(csu)^  REFSM  MAT„  (VATTl  J 

R(C5M)^-» REFSMMAT^(RATri^) 

j 

i 

MUN6RAV 
COMPUTE  LUNAR 
SRAVITATIONAL 
ACCELERATION 
^'-3650 


INPITT;  MPACv 
output:  mpaCv 


INPUT  POSITION  VECTOR 
GPT1/Ey=  GIRAV.  ACCEL. 


G(CSm'i^ 

TDEC1„ 


MPACv 


CSM  GRAVITY  VECTOR 


G 


GOMIDAV 


COMPLETtD  JN  TIME 


MlPTQAVl 
INTEGRATE 
LM  VICTOR 

TOTDECi 


V FC-3e50 


INPUT:  TDeCi,LM  STATE  VECTOK 
OUTPUT:  RMl  » POSITION  VECTOR 
VNii  = VELOCITY  VECTOR 
RPTIMEl  - TIME  OF  INTEGRATION 
MPACx,  delta  time  = TAT  - CURRENT  TIME 


NOT  ENOUGH  TIME, 
SLIP  TIG 


■ns. 


- PIPTIMEI^P  + DCS.SSECp 


(- 


CALLT-  35 


SAYET-  MPAC,  - SSECDP^  PELTA  TIME  UNT  L T1 G - 5S 


Tie-35 


LONGCALL  TASK  , 
IN 

^(5AVET-3d)CSeC 


SCHEDULE 
TIG -55  task 


SH5 


NEXT  SHEET 


AtT 

tNfimMirArNN  LAS 
CMfSISSC.  WHS. 


A. C.  WILLIAMS 

PSGWS  (2. 

WALST  ^ 


ISJUNEfeSt 


AAu±n 


APOliO 

CUISMCC  AND  NAVICATION 

BURN  BABY  BURN 

(master  IGNITION  ROUTINE) 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3840 

i«Wi_ 

1 s«n  s oTTs 

( TIG- 


NHT 

imWtHWCWWtCW  LAB 

cmmifi&t.  MSS. 


ORAWM  A.C.WILLIAMS 


Pwm 

ANAIST 


oocm 


2=2X^ 


APoao 

MfMMCC  AND  NAVICATION 


BURN  BAB\  BURN 
(master  IGNITION  ROUTINE) 


LUMINARY  ID 


MCUMENT  NO. 

FC-3640 


APPB'D 


fiQ . 


RCV  3 


1 SHKT  5 Of  ^5 


twiddle  task 

> IN  2.4.9  SEC.  / 


'ISPDEX-* 0CTI7 


START  UP  CLOKTASK 
DISPLAY  AGAIN 


THIS  STARTS  AT  TIG -7.5  SE:(DRS'; 
OR  TIG-3.5  5EC.(APS) 


CP12,P41 

table) 


/ IS  \ 
C(WHICH-K.) 
\ >0?  /■ 


I.PG9,  P40,P4t  table) 


'0NULLA6E ' 
TURN  ON 
ULLAGE 


/ GROUP  1.0 
I^KILL  GROUP  1, 
RESTARTS  / 


SAVET-30  - 


ULLGTA5K 
• TWIDDLE  TASK  . 
\ IN  / 

' SAVET-30  SEC.' 


/ GROUP  13 

Restart  task 

ULLSTASK  ! 


STORE  TABLE  VALUE 
FOR  RESTART 
%3  P 10  22 .40  SEC  (n  S - 7.  S) 
P42=2S.40SEC.  (tiS-  3.5) 


SCHEDULE  TASK  TO 
TURN  ON  ULLAGE 


(Pfe3,P40  TABLE) 


Y . (P42  table) 


SET  ASCENT 
APSFLAG  STAGE 


(P41  table) 


Cp40,  P42 table) 


— An(cALCN65)i 


LOAD  AVEGEVITWITH 
APPROPP  lATE  2 CADR 


/ GROUP  4.2 
/restart  this 

TASK  AT 
REDO  4,2 


/ GROUP  4.2 
/ RESTART  TASK 


RPDO  e.l7 


/ GROL^P  Z.0 
f KILL  GROUP 

z restarts  / 


NEXT  SHEET 


AVEGEXITp  AU(STEERIHG)j*n 


HVSIMMPVWTNW  [M 
cmmt99i.  MASS. 


Arauo 

OIHMNCI  m fMVlCATION 


BURN  6ABV  BURN 
(MASTEP  IGNITION  ROUTINE) 


•OCUMINT  NO 

FC-3840 


LUMINARY  ID 


ranwMBMranoH  ott 

CMRtMC.  mS5. 


Araio 

OUltAMCC  MD  MAVIGATION 


BUf^M  BABY  BURN 
'MASTHR  iGNmON  ROUTiNC) 


LUMINARY  ij) 


PROM  PRECEDING  SHEET 


GROOP  3.3 


' SET  UP  RESTARTS 
TO  SCHEDULE 
TASK  ZOOM  IN 

ZOOMTlMEcsc 


GROUP 4 


' SET  UP  RESTARTS 
TO  SCHEDULE  THE 
NEyr  LXATION  AS 
A TASK  IMMEDIATEILY  j 


CLEAR  I6NFLAG 
CLEAR  ASTNPLAG 
CLEAR  IDLEFLAS 


' GROUP  4.5 
^ RESTARTTASK  ^ 
ULLAGOFF 
IN  0.5  SEC. 


TIG  HAS  NOT 
ARRIVED. 

ASTRONAUT  HAS  NOT 
OKAYED  IGNITION. 
CONNECT  DV  MONITOR. 


TGO  +1 

. i 

FIXDELAY  ^ 
DELAY  TASK 
0.5  SEC. 
FC^G04o“ 


CLEAR  IGNFLAS 
I CLEAR  ASTNFLAG 
CLEAR  IMPULSVv' 


VYAITABIT 


/ GROUP  4.0 
^KILL  GROUP 
4 restarts/ 


\tASKOVEPv^ 


input:  a 

O'JTput:  a - t&o>i: 


•f  .1  rOK'LE  T ASK  TO 
TORN  OFF  engine 


TIG  HAS  NOr  ARRIVED, 
ASTRDNA'jr  has  not 
OKAYED  IGNI’ION 

steering  kurn 


SEC, 


mr 

iiKiMwcHninoN  um 

ijwwipgc,  Nwsf. 

OfNMPN  A.C.WILLIAMS 

W!SEl\ 

^^1 

APOLLO 

OWMWCt  tm  MVI6ATKM 

BURN 

('master 

BABY  BURN 

GNITION  routine) 

LUMINARY  in 

;kv  3 

1 S»CtT  9 Of  Z5  1 

( P-40A'JTO 


TEST  PGMC5  CON~rT?OL  AND 
AUTO  5TA6iLIZATlON 


NHT 

INSTRUNCNT^tON  I AS 
CMMMfME.  MASS. 


DtAK  A.C.-WILL-IAMS 


AWAL5T 


BocMK 

/fT^W 


APoao 

CUIOAMZ  AND  NAVIGATION 


BURN  BABY  BURN 
(master  IGI<mON  RO'JTINe) 


LZId  luminary  id 


DOCUMENT  NO. 

FC-3640 


VulM 


DEV  3 


SHEET  H Of  Z.S 


routine  to  start  COUNT'DOUN 
(CL0KTA5K  £*  CLOKJOB) 


SAVE  RETURN 
IN  T8AeE4 


I MPAC, 


COMPUTE  TIME 
TILL  IGNITION 


/FORCE  SIGN\ 
'agreement  IN 
\ MPAC-  / 


k’n.\AiNDEK 


/MPAC (BITS  5-0 
\l5EC 


COMPUTE  TIME  FOR 
CLOKTASK  CALL 


A-^L+E  ADD  Z CSC. 


NEXT  SHEET 


iwmywtwTWfiaw  lab 

CAMMNOOE,  NMSS. 


PRAWN  A.C.WILLIAMS 

PRORm 


AROliO 

GUfMMCI  AM  HMICATIOM 


BURN  BABY  BURN 
(mA'=>TER  IGNITION  routine) 


• I 11  *>  >.  1 r\ 


FROM  PKECECMNG  SHEET 


SCHEDULE  INITIAL  CALL 
TO  START  CLOUTASK 


CLOKTASK 


SCHEDULE  CLOKJOBTO  UPDATE 
TTOGOp  : time  TILL  IGNITION 


SET  ■reASEG  FOK 
GROUP  RESTARTS 


TEST  DISPDEX 


SCHEDULE 

CLOKJOB 


IS  \ 
DI5PDEX 

V >0?  / 


.NOVAC  JOB 
\ PRIORITY  / 
/ 27  ' 


KILL  CLOKTASK  S 


^ 1 KILL  GK^'J'  V 

^ I RESTART" 


^/FiypELAYX 
DELAY  TASK \ 
1 SEC  / 


Af>OUjO 

GUtOMKE  AMD  MAVKATICm 


5*JRN  BA6Y  ^'JRN 
(master  IGNITIOM  routine) 


LUMINARY  ID 


FC-3840 


mr 

mmmmmmt  lm 

CMirifraE.  Mffis. 


mmm  a.C.williams 

PTOfW  C - 

««m.ST 


lUJUNfeSI 


Doam 


AKUO 

AM  IMVICATKW 


BURN  BABY  BURN 

(master  ignition  routine) 


LUMINARY  ID 


•OCWKNTNO. 

FC-3840 


1 H€£t  14^  OF  Z5 


•PWl'ftL^ViLT 


ItV  3 


■mi5  DISPLAY  U5SD  IN  P'^^  TO  RESET  EN/ENl 

timer  to  agree  with  tig 


RECYCLE 


TERMINATE 


VOGNGt 

DISPLAY  TTFDlSPj 
,TTOGO,OinOFPLN  j 


Rl-  TTFDlSPp  - XXBXX  MIN, SEC  - TIME  TOGO  IN  BRAKING  PHASE 
RS-TTOGOp  -XXBXX  MIN, SEC-  TIME  FPOM  IGNITION 
R3- OUTOFPLN.-  XXXX.X  NAimwi.-  CROSS  RANGE  DISTANCE 


STOPCLOK 
\ SH14  / 


/ GROQP  A 
^ SET  UP  RESTARTS 
TO  RESTART  JOB 
AT  NEXT  IjOCATION  j 
WITH  SAME  PRIORITY/ 


STOP  DISPLAY 


ASTTvJRET 
\ FIND  VAC  JOB 
\ PRIORITY  { 

L 

FC-'BSOO 


SCHEDULE  JOB  +0 
RETURN  TO  PgB  ROUTINE 


PIP 

P42 

PG3 

ABRTABLE 


I “17  ^ 


A-^ — 0#WHICH  LOAD  VERb/mO'JN  PROM  ACTIVE  TABLE 


REGODSP 

V.  FC-3080^ 


INITIATE  DISPLAY 


/ CLEAND5P 
BLANK 
DSKY 

.FC-B080  ’ 


wr 

neriMnimnvN  u» 

1 

1 

PMMI  A.C.WILLIAMS 

IIJUNGS 

C.  ScyiuAifMlMra 

f,AUG6\ 

WMLST 

onnm 

6Aoi(‘. 

APrr» 

tfVUO 

cvfOMCC  mm  ■wriwuw 


BURN  BABY  BURN 
(MASTER  IGNITION  ROUTINE) 

LUMINARY  ID  _ 

FC-3840 


! 

i 

I 

i 


i 

1 


I 

I 


mj 

msmmemmHm  im 

cmmm€.  imss. 


9nmm  a.c.w>lliams 


mom 


AMAIST 


bZJUNfee 


¥xm 


APOUO 

MIOANa  AMO  NAVIGATION 


BURN  BABY  BURN 
(MAf'^EK  IGNIT13N  ROOnNc) 


LUMINARY  ID 


DOCUMENT  NO. 

>^0-3840 


i P€CT  A(2>  Of  ?5 


A(J/:/c^ 


m 3 


/'P^,P4Z table)  (FIZ, abatable) 

^ WHiUH  \ 


FOSTBURN 
\ FIMPVAC  JOB  ^ 
/ PRIORITY  iZ 
FC-B800 


{p(oZ  table) 


I 

VSSRECYC 

Y SHi(p  ^ 

CUTOFF 

\ FINDVACJOB/ 
/ PRIORITY  17  ^ 
FC-3e50 


^/ALLCQA5T\^ 
SET UP DAP 
FOR  OOASTIMG 
FLIGHT 


CLEAR  CURRENT  Gl.'iDANCE 

FLUNDISP  DISPLAYS  PERMIT  IFC 


/ NULECLOK  \ 

^ TURN  OFF  \ 
ULLAGE  AND 
. I^ILL  CLOKTASKy 

\ ■ SH18  7 


/ GROUP  4,13 

/set  up  restarts 

TO  SCHEDOLF  JOB 
POSTBURN  WITH  / 
PRIORITY  It  / 


ENDOFJOB 


/ALLCOA5T\ 
^srr  UPDAP  ^ 
FOR  COASTING 
FLIGHT 

y 


/ HlH.l.Cl  QK 
' TURN  OFF 
ULLAGE  AND 
KILL  CL0KTA5K 

\ sHi^y 


/ GROUP  4 
/ SET  UP  RESTARTS 
no  SCHEDULE  JOB 
CUTOFF  WITH  / 
PRIORITY  17  / 


END0FJO6 


NHT 

HRnwRcnmnoN  lab 
CMRWriOOE,  BMSS. 


AFOILO 

GUIDANCE  AND  NAVIOATtON 


BURN  BABY  BURN 
(MASTER  IGNITION  ROUTINE) 


SHEET  17  Of  ^5 


LUMINARY  ID 


SAVE  RETURN 
m P40/RET 


, ] 

(P40Z 

OOMA^ 

i 

j 

j GROUP  3.0  / 

/ KILL  GROUP  / 

1 3 RESTARTS  / 

\i  A5K0VFR  / 

(^onollage:^ 


seT  • 

ULLAGFLG 


TJRN  ON 
ULuAGF 


! 


1 

I 


MT 

CMMRItSE.  MSS. 

MtMMI  A.C.WILLIAMS 

tmii 

«WLST 

DOCMI 

APQliiO 

GUftMOC  M IMVIGATIOM 

BURN 

(master 

BABY  BURN 

IGNITION  routine) 

lijminary  id 

GOCUMNf  NO. 

FC-3840 

KV  3 

1 WHT  16  OF  ^S 

5ET  IDLEFLAG  NO  DV  MONITOR 

SET  FUUNDISP  INHIBIT  CURRENT  G>'.JlDANCE  DISPLAYS 


PVCMTR-^  ^ RESET  DVMON 


^ 15 

PHASE  <o 
ACTIVE 


^ STCLOKI  \ 
START 

COUNT  DOWN 
\ SHIZ/ 


DISPDEX  OCT3S 


j GROUP  4.0 
KILL  GROUP 
4 RESTARTS  , 


( PIC.  PG^.A&RTAbLE^J 
rCOMTAlLsVi- 


( F40.  PAZ  TA&LC> 
— rC0MFAIL4^ 


CLEAR  IDLEFLAG  CONNECT  P\  MONITOR 

CLEAR  FLUNDISP  CURRENT  G'JlPANOE  IlSPlAYS  PEPMlTTED 


ENrOFTOE 


MIT 

tNSTKUMNTATIOM  LAI 
CAMNMI.  MSS. 


IgEgi 


LUMiNARr  ID 


m 3 


AfOUO 

CUIMNCI  nm  NAVfCAflON 


BURN  BABY  BURN 
(master  IGNOION  ROUPNE) 


FROM  PReCEDING  PAGE 


^overflow. 

\ 7 / 


STORE TGO  (PUSH  LIST)  -< — MPACo 


fPUSM  LIST) 
640.15^  _ 


TFSTTG0<G.5EC 


IS 

MPAC  - (i.5EC 

\ <0?  / 


TEST  TGO  <95e>EC 


MF'AC_  -» WPACr  + GJEC.  RESTORE  TSC 


iS  \ 
MPAC-895EC5 

V < o / 


SET  NOTHRor^ 


INHIBIT  FULL 


5ET  IMIPULSW 


MINIMUM  IMPULSE" 
BURN 


COMPUTE  t eiTCKE 
TGO 


(storetog:)  ) 

-< FMGH  list) 

1 

. _ J_  _ 

STOPsETOG  O -»!  ' 


' force:  sign 

AGREEMENT  OF 
, MPACt 


TGCj.  0, K/.PAC  I STORE  TGO  2.^"' 


/ GROUP  3.0 
'kill  group 
3 restarts/ 


OMMHE.  MSS. 


Aram) 

E AND  WmATtON 


6'JRN  BAK^  BURN 

(master  ignmion  routine') 


luminary  id 


OOOMEIff  NQ. 


FC-3540 


ENS0FT5K 


ENGINOFF 

engine:  off 
FUNCTIONS 

5HZd/ 


^^ASKOVER  / 


(^COASTS  ET^ 


ALLCOAST 
’ I'AP  COASTING 
INniALlZATION 

, Fc-i'A'Ao  y 


\taskover  / 


D 


ENGINOFF  ) engine-off  FUNCTIONS  CONTROL 


POSTBURN 

^ FINDVAC  JOB  / SCHEDULE 
PRIORITY  IE  \ P05TBUKN  JOB 


FC-ISOO  SHe 


(^ENCINOF^ 
COASTS ET 


\WAITLI6T  task  / SCHEDULF.  DAP  COASTING 
IN  1 sec  \ INITIALIZATION 


SH13 


(^NGINOFO^ 


NO  DV  MONITOR 


|THVeNTj-«.-TlME2p 

ENGINOFS 


clear 

ENGONFLG  | 


ENGINE  TURNED  OFF 


WRITE  BIT  14 
CLEAR  BIT  IB  I 
\ OF  CHAN.  11  / 


TURN  OFF 
ENGINE 


TURN  OFF 
TRIM  GIMBAC 


PIF 

THRUST 

-» HIRTHROT 

I 


WRITE  BIT4 
\ OF  CHAN.  14  I 


ZERO  AUTO-IHKOTTLE 


ENABLE  THRUST  DRIVE  COMMANC?S 
TO  CHANGE  THROTTLE  SETTING 


.RETURN  VIA 
\ ISWRETRN 


■IT 

nkummenmimn  iM 

CMMMCE.  M«K. 

1 MMM  A.C.WILLIAMS 

1 MMLST 

izn 

APtMIO 

GUIOANCt  AND  NAVIGATION 


BURN  BABY  BURN 

(master  ignition  routine) 


LUMINARY  ID 


DOCUMENT  NO. 

FC-3840 


■V  3 


i SHEET  2 8 OF  SB 


SUBROUTINES  CALLED  WHICH  ARE 
FLOWED  ON  OTHER  FLOW  CHARTS 


SUBROUTINE 

NAME 

FLOW 
CHA  RT 

UESC  RIPTION 

WHERE 

CALLED 

ALLCOAST 

FC-3-440 

SET  UP  DAP  FOR  COASTING  FLIGHT 

SH.  17,23 

CHECKMM 

FC-3020 

TEST  MAJOR  MODE 

SH.  4,  8 

CLEANDSP 

FC-3080 

BLANK  DSKY 

SH.  5,  15 

CSMPREC 

FC-3350 

EXTRAPOLATE  CSM  STATE  VECTOR 

SH.  3 

FIXDELAY 

FC-3040 

DELAY  ACTIVE  TASK 

SH.  n.  13 

FLA TOUT 

FC-3900 

THROTTLE  UP  DESCENT  ENGINE 

SH.  18 

G&N, AUTO 

FC-3420 

CHECK  G&N' AND  AUTO  SWITCHES 

SH.  n 

INVFLAG 

FC-3050 

INVERT  INPUT  FLAG  BIT 

SH.  20 

KILLTASK 

FC-3040 

REMOVE  TASK  FROM  WAITLIST 

SH.  18,20 

MIDTOAVl 

FC-3350 

INTEGILYTE  LM  STATE  VECTOR 

SH.  3 

MUNGILYV 

FC-3850 

COMPUTE  LITIAR  GRAVITATIONAL  ACCELERATION 

SH.  3 

TPAGREE 

FC-3150 

FORCE  SIGN  AGREEMENT  IN  MPAC^ 

SH.  12,22 

FLAGS 

NAME 

MEANING  WHEN  SET 

MEANING  WHEN  CLEAR 

WIIE  RE 
SET 

WHERE 

TESTED 

APSFLAG 

FL.  10,  BIT13 

ASCENT  STAGE 

DESCENT  STAGE 

SH.  11 

ASTNFLAG 
FL.  7.  BIT12 

.ASTRONAUT  HAS 
OKAYED  IGNITION 

ASTRONAUT  ILYS  NOT 
OKAYED  IGNITION 

SH. 

6,  16 

SH.  7.  9 

SH.  8 

DRIFTDFL 
FL.  13.BIT8 

T3RUPT  C.ALLS 

GYRO  COMPENSATION 

T3RUPT  IX)ES  NO  GV  RO 
COMPENSATION 

SH. 

20 

SH.  f 

EN GONE LG 
FL.  5,  BIT7 

ENGINE  TURNED  ON 

ENGINE  TURNED  OFF 

SH. 

8 

SH.  23 

FLUNDISP 

FL.  8,  BITIO 

Cl'RRENT  GUIDANCE 
DISPLAYS  INIUBITED 

CURRENT  GUIDANCE 
DISPLAYS  PERMITTED 

SH. 

1!) 

SH.  9.  17, 

19 

IDLEFLAG 
FL.  7,  BIT7 

NO  DV  .MONITOR 

CONNECT  D\-  MONITOR 

SH. 

19 

SH,  9.  19 

IGNFLAG 

FL.  7.  BIT13 

TIG  HAS  A RHl\'Ei:) 

i TIG  IL^S  NOT  ARlilVED 

SH. 

8 

SH.  7.  9 

SH.  16 

IMPULSW 
FL.2.  BIT!) 

MINIMUM  IMPULSE 

BU  RN 

STEERING  BURN 

SH. 

22 

SILO,  21 

SH.  9 

MUNFLAG 

FL.  6,  BITS 

SERVICER  CALLS 
.VIUNRVG 

SERVICER  CALLS 

CALCRVG 

SH.  3 

NOTHROTL 
FL.  5,  BITI2 

INHIBIT  FULL 
THROTTLE 

PERMIT  FULL  THROTTLE 

SH. 

21,22 

SH.  21 

SH.  9 

ULLAGFLG 
FL.  13,  BIT6 

ULLAGE  REQUESTED 

BY  MISSION  PROGRAM 

NO  INTERN.YL  ULLAGE 
REQUEST 

SH. 

18,  20 

SH.  18 

USEQRFLG 
FL.  13,BIT14 

GIMBAL  UNUSABLE. 

USE  JETS  ONLY 

TRIM  GIMBAL  MAY  BE 

USED 

SH. 

23 

LETABORT 
FL.  9,  BIT9 

ABORT  PROGRAMS 

ARE  ENABLED 

ABORT  PROGRAMS  ARE 

NOT  ENABLED 

SH. 

10 

PULSEFLG 
FL.  13.  B1T15 

MINIMUM  IMPULSE 
COMMAND  MODE 

NOT  IN  MINIMUM  IMPULSE 
COMMAND  MODE 

SH.  10 

SWANDISP 
FL.7,  BITII 

LANDING  ANALOG 
DISPLAYS  ENABLED 

LANDING  ANALOG 

DISPLAYS  SUPPRESSED 

SH. 

10 

DRAWN 
PRGMR 
ANALST 
DOCAW 


BURN  BABY  BURN 

(master  ionition  routine) 


LUMINARY  ID 


SHEET  24.  OF  25 


DISPLAYS 


V'06N40 

R1  - TTOGO  - XXBXX  MIN -SEC  - TIME  TO  IGNITION  CUTOFF 

Sli.  13 

V99N40 

R2  - VGDISP  -XXXX.X  FT,  SEC-VG 

R3  - DVTOTAL  - XXXX.X  FT'SEC  - DELTA  V 

EHASABLE  LOCATIONS  USED 


UNITS 

SCALING 

TIGd 

TIME  OF  ENGINE  IGNITION 

CSEC 

.,28 

TGOq 

TIME  FROiM  ENGINE  CUT-OFF 

CSEC 

,28 

PIF 

THRUST 


|auto  throttle  command  registers 


SERVICER 


MAJOR  SUBROUTINES  ON  THIS  CHART 


PREREAD 

Sh. 

2 

PIPASR,  PIPASR  + 3 

Sh. 

6 

SERVICER 

Sh. 

9 

CALCRVG 

Sh. 

18 

CAUCGRAV 

Sh. 

18 

COPYCYC 

Sh. 

19 

MIT  INSTRUMENTATION  LAB 
CAM8RIDCE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

SEHVICKIl 

wssam 

DOCUMENT  NO. 

IjI.  IVIINAl't'i  |<*C'  38'^’0 

ID 

IaNALST 

1 

I 

1 

REV  s ISHEHl  Of  22 

CALLED  BY  P12^P4.0.P4.1^P42;P4T^  AND  P63 
THROUGH  BURNBABY 

INITIALI/WTIOM  ROUTINE 
FOR  SERVICER 


RESTART 
B\Bt  BIAS 


LASTBIAS 
NOVAC  JOB 
I PRIORITY  / 
21 


SCHEDULE  LAST  GYRO 
COMPENSATION  IN  FREE  FAL_ 


READ  AND 
CLEAR  PIPAS 


SET  AVEGFLAG 
CLEAR  DRIFTFLG 
SET  V37FLAG 


averages  To  CONTINUE 
NO  GYRO  COMPENSATJH 
AVERAGES  running 


PIPAGE-* 4 


FINDVAC  TOB 


SCHEDULE  FIRSY  tHTRY 
FOR  AVERAGES  ROUTINE 


(GOREADAX 


RESTART  JOB 
NORMLIZE  AND 
TASK  REREADAC  , 


/ VAR  DELAY  \ 

' DELAY  ACTIV^ 
TASK  S SECS  . 


. FC-3040 


NEXT  SHEET 


luminary  id 


FROM  PRECEDING  SHEET 


NEXT  SHEET 


HHT 

mmumamKH  lm 

CMMKIOOE. 


ANALST 


^4WYe3 


DOCWR 


AMHiO 

GUIMNCE  fm  WWICATION 


SERVICER 


LUMINARY  ID 


OOCWCNT  NO. 

FC'3850 


RERrAOAC)  ROUTINE  RETRETADS  PIPAS  AND  CDOS  IF  RE-START  OCCURS 


^IPAaE  = 0 > 

I 

OCTERMIhJE  I 
WHICH  PIPAS 


NO, PIP  READING  NOXSTARTEX3,  &0  TO  SESIMMlNG 


READACCS 
•\SH3  y 


p-T-  - HAVE  BETV  ^ 

read 

ADDRESS 

PIP3D0ME  SET  UP  RETURN  FROM  PIPASR  ROUTINE 


DELV^  = 

YES  ; =o 


t+Ojff  PIP  DOME,  DO  CDUS 


REPIP  A 
\SH6  ^ 


\jS+0,Y  PIP  dome  L-W PIPAZ 

. DELVY=  > — ^ 

>/N0  PIPA^— +0 

YES  =0 
(CHKTMX) 


TE-MX=  - 
\ -O  7 / YES 


-o  Ao 

-r<f  TEME 


REPIPI 
V SHE 


L HAS  PIPE  Y=-l-0 
READING 


DELVX- — TEMX 
DELVY-»--TEMY 


PI  PAX— O 

PIPAY— — + 0 


fREPIpa 


HERO  X AND  Y PIPS 


— 

0ELV2 



3 

1 

REPl  P4 

where 

+ 0 A — -TEMZ  TEME=-PIPAH 


OODECVZ 
\ SH6  > 


APOUO 

eMIMm  AND  NAVICATKm 


servicer 


luminary  id 


Fd^8'%0 


NORMLIZEI 


DO  NOT  USE  lunar  LANDINS  AVERAGES 
ROUTINE  I 


NORMLI21 


munflag 

V SET?/ 


USE  LUNAR  LANDING  AVERAGES 
ROUTINE 


/ (^LCGRAV  ' 
f COMPUTE 
GRAVITATIONAL 
V ACCELERATION 


POSITION  VECTOR 

\output:  uNnooBL=  gray. 

/ ACCEL. DUE  TO  EARTH 

OBLATENESS  / 
GDTl/a=GRAV.  \ 
ACCELERATION  ' 


-REFSMMATj.  y MPACu 


MUNGRAV 


COMPUTE  LUNAR 
GRAVITATIONAL 


ACCELERATION  MPAC,=G0tV2,  = GRAV.  ACCEL. 


REFSMMATm  X VNlv 

uNiT[v(csM)yX  r(csm)J 


ASCSPOT 


-PHASE  2- 


ICILL  GROUP  a 
PROGRAMS 


(NORMLIZ2 


/ COPYCYC  +1\ 
COPY  20  WORD 
BUFFER  FROM 
RN4  to  RN 


INPUT  : RNl 


output:  RN 


20  WORD 
BUPFER 


, ENDOFJOB 


AMUO 

CUIMMCE  mm  NAVICATION 


MOONSPOT 
. SHIO  ^ 


(^6ERVJCEP  j updates  STATE  VECTOR  A N D MA S S C F L M 


/ GROUP  53 

'Restart  task 
REREADAC 
IN  Z SEC.  , 


/ GROUP  5 
/ RESTART  JOB 
' GETABVAL 
WITH  PRIORITY  20  j 


1/PIPADT-* PR  1031 

1 

/ 1/PI  PA 
' DO  PIPA 
^COMPENSATION 
\fc-3230  / 


ABDELV-* /oELVy/ 

ABCVCONVt,-*—  KPlF(/De-Vv/) 

MASSip  MASSjj 


(MASSMON 


TEST  LM  ON 

IS  LUNAR  SURFACE 

SURFFLAG  N 
SET 
\ 7 


TEST  APS  BURK 


15 

APSFLAG 
SET  / 
\ 7 


t 

q-. 

NO  (DPS  BURN) 


- - 

Q-* — 

DPSVEX 

ABDVCONV- 

MASSl^-* P MA6S+MASS1„ 

D Q “ 

NEXT  SHEET 


«HT 
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IW9R\ 


ABQUO 

: AM  NAVIGATION 


LUMINARY  ID 


INV3 


D VTOTA  L ^ D VTOTA  L ^ +KPI  P'1  ( AB  D E LV^) 


/ TM P TOSPT  \ 
/ LOAD  CDUS \ 
CORKeSPQNDlNJG  TO 
PlPTlME  INK) 

\ COUSPOT  VECTOR  / 
\ SH19  / 


/QUiCTRIG  \ 

COMPUTE  \ 
SINES  (S?  COSINES 
OF  CDU  ANGLES  y 


INPUT:  CD'J  VAL'ltO  IN  CDUSPDTy 
OlKPUr*.  sines  C*  COSINES  OFCC'U  ANG’..t3 


XNBPIPAD 


LOAD  A with  address  )F 
B'JFFER  POK  FLESH  POT  ROUTINE 


FLESH POT 


SUBROUHNE  TO  FORM 


COSCDDV  COSCDUZ, 
SINCD'JZ, 

- SINCDOT  COSCU'L 


COSOClh'  SINCOOX  SlNCDUZ  + OSCD'JK  SlNCDUY, 
- SINCDOX  COSCD'JZ, 


COSCDOX  C05CDUY -51WCDUX  SINOD'JY  SiNCD'JI 


TTsIBPlP^-^  iZNBRF^)  k(xNBPiF;'j 


RETV’RN  VIA 
\SWRETURN/ 


NEXT  SHEET 
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OaUMENT  NO. 
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lE^ 


FROM  PRECEDING  SHEET 


t 


FROM  PRECEDING  SHEET 


UPTHRUST 
. SH-13  ^ 


■^UXFLAG 
V SET?/ 


CONNECT  DV 
MONITOR 


IS  \ 
___/abdelv::> 

N o\d  VT  H RUSJ^ 
YE5| 


SET 

steersw 


NO  DV  MONITOR  THIS  PASS 

— "-(nodvmons) 


SET  IF  IDLEFLAG  IS  NOT  SET 

AUyFLAS  DO  DV  MONITOR  NEXT  PASS 


USEJETS 
. 5H13  . 


STEERING  TO 
BE  DONE 


DVCNTSET) 


/ IS  \ 
APS FLAG 
. SET  ? / 


TEST  FOR 
APS  BURN 


IS  BIT  9 
\0F  CHAN. 

\ 32KESET'! 


HAVE  GIMBALS  BEEA 
DISABLED  BY  CREW? 


USEJETS  i 
. SH13  ! 


NO 

USEGTS 


CLEARS 

USEQRFLG 


TRIM  GIMBAL 
MAY  BE  USED 


5ERV0UT 
SH3  3 


SERVICER 

LUMINARY  ID 

DOCUMDir  NO. 

FC-385C 

} 

GROUPS 


/set  up  restarts 
/to  schedule  the 
/next  location  as  a I 
/findvac  job  with  / 
SAME  PRIORITY  / 


IS  \ 
DVCNTR 
\ >09, 


DECCNTR  , 


/ IS  \ 

PHASE  A 
ACTIVE  / 


PVCNTRI-^ DVCNTR  --1 


/ GROUPS 

/set  up  RESTARTS 
I TO  SCHEDULE  THE 
I NEXT  LOCATION  AS  A 
FINDVAC  JOB  WITH  j 
SAME  PRIORITY  / 


DVCNTR 


-DVCNTRl 


INHIBIT 

inter- 

rupts 


/ STOPRATE  \ 
ZERO  IMPUTS 

to  auto  pilot 


FC- 3430 


USEJETS 


GROUP4.37 


/'SET  UP  RESTARTS 
TO  SCHEDULE 
COM  FAIL  AS  A 
NOVAC  JOB  WITH  i 
PRIORITY  OF  25  / 


COM  FAIL 


NOVAC  JOB 
) PRIORITY 
25 


FC-3840 


SET GIMBAL  UNUSABLE 

USEQRFLS  USE  JETS  ONLY 


THIS  IS  THE  END  OF 
THE  GSOP  R40  SECTION 


ALLOW 

INTER- 

RUPTS 


ATOUO 

CUIBMCE  MD  MVIMTION 


FROM  PRECEDING  SHEET 


Vaccs  \ 

COMPUTE 
MOMENTS  OF 
INERTIA 

FC- 3490  7 


PUSHLOC' 
FIXLOC  ^ 

- -4 PRIOR  ITY(BITS  9- j) 

(SERVEXIT 


/ GROUP5.3 
/restart  task 

/reread  AC  IN 
'S  SEC. 


/ GROUPS 

/set  up  restarts 
/to  schedule  the 
/next  location  asa; 
/find vac  job  with  / 
SAME  priority  / 


.ENDOFJOB 


GO  TO  ROUTINE  SPECIFIED 

IN  AVGEXIT 

AVGEND  FC-3850 
CALCN83  FC-3  830  Lll 
CALCN85  FC-3810 
SERVEXIT  FC-3850 
STEERING  FC-38ao 
UUNLAND  FC-3S40 
ATM  AG  FC-3980 

P63DISPS-2  FC-39O0 

FINAL  AVERAGES  EXIT 
(END  OF  POWERED 
FLIGHT  SET  UP  V 
FOR  FREE  fall)  „ 

SET  UP  FREE  FALl|  1/ PIPDT- 
6YRO  COMPENSATION^  T" 


_ ,,  ( AVGEXIT  = AVEGEXIt) 

SERVDURN-i-TIMEl-PIPTIME  +1  + 2°  f 


AVGEXIT 
SEE  TABLI 


-PIPTIME  + i 


SET  NORaSFLG  R29  NOT  ALLOWED  j 

CLEAR  SWANDI5P  LANDING  ANALOG  DISP.  SUPPRESSED] 
CLEAR  MUNFLAG  SERVICER  CALLS  CALCRVG  i 


SET  

DRIFTFLG 


T3RUPT  CALLS  GYRO 
COMPENSATION 


/ PIPFREE  \ 
TERMINATE 
USE  OF  PIPAS 

\ PC- 3320  / 


/AVETOM I D \ 
/ INITIALIZE  \ 
PERMANENT  STATE 
VECTOR  FOR 
\COASTING  PHASE/ 
\fC-  3350  7 


PERFORM  TRANSITION  FROM 
THRUSTING  PHASE  TO 
. COASTING  PHASE 


.CLEAR  BIT/ 
\ 9 0F  / 
\ CHAN.  11  / 


CLEAR^ 

V3TFLAG 


averageg(servicer)  off 


/ GROUPS.O  , 

' MAKE  groups/ 

inactive  / 


( AVERTRN 


/ GROUPS 

/set  up  RESTARTS 
/TO  SCHEDULE  THE  j 
NEXT  LOCATION  AS  A / 
FIND  VAC  JOB  WITH  / 
PRIORITY  20  / 


V37RET 

FC-3010 


SERVICER 


FROM  PRECEDING  SHEET 


FROM  PRECEDING  SHEET 


PLOjj 
HCALCjj 
ALTBITSq 
UHZPy  Ul 


MPACo- 


)(J  - /RlSy/ 

« /R-lSy/-  /L'AND/p 

I ALTCONVp  (hCALCd) 

UNIT/R/y  X UHYPy 
RIS  V (rEFSMMAT^,  ) 

VISy  (rEFSMMATm  ) 

^/uNIT/R/yX  V^Sy/  1 


"R-lSy/ 


INHIBIT 

INTER- 

RUPTS 


COPYCYCL 


SHll 


SDTl/2, 


UNIT/R/y  UNIT(MPACy) 




yRETURN  VIA/ 
\ QPRET  / 


AKUD 

OltMNQE  mm  NAVIGATION 


5EPVICER 


LUMINARY  ID 


DOCUMENT  NO. 

FC-3850 


SHEET  17  OF 


CALCRVG 


THlSROirriNP  MA.1NT?.INS  THE  STATE  VECTDR  ESTIMATES  6'i  K.'JMEPi:A'..  IhITGRAIT'M. 
OF  IIHE  EQUATIONS  OF  MTTlON.THK’J5T  AND  SFAVITATIONAE  ACOELEF.ATrjhS  /.FF 
AVEKA&ED  over  ATIME  INTERVAL  OF  2 SECONDS 


r" 


DELVREF^-^ KPlPli'OELV^)  REFSMMAT„ 


I 


CONVERT  VELOCITY  INCRENIENTS  (aV/z') 
TD  REFERENCE  COORDINATES 


b(t+at)->^b(t)4At  v(t)+Gp(t)  ^ 


RNl  ; 


-RN,,+  (paiilDE  + GOV^t 


I 


UPDATE  PDSmON  VECTOR 


31 D 


QPRET 


SAVE  RETURN  IN  31D 


(^CALCGRAV) 


SET  XI  FOR  LUNAR 
SPHERE  OF  INFLUENCE 


THIS  ROUTINE  COMPUTES 
GRAVITATIONAL  ACCELERATION 


n 


INPUT:  MPAC  : RN1„:  CORRECT  POSITION  i 

V V 

VECTOR  I 

output:  uNtTGOBL^:  gravitational 

ACCELERATION  DUE 
TO  EARTH  08LATEME!;S  > 
GDTi/2  : gravitational  j 

ACCELERATION 


TEST  FOR  LUNAR 
SPHERE  OF  INFLUENCE 


SET  XI  FOR  EARTH 
SPHERE  OF  INFLUENCE 


r^je(l)  [(l-5  COSji^)  Up+2  cos^yj 

<[^203  j [oPlAO  -(u  N ITZ  V •UNrr/'R/y^UNtT/R/^+  £J  I^^^^UNITZ^-UN  IT/R/^  UN  ITZ^j 


OOv  - 


I 


UNITGOB-v  + UKllTR^ 


CALCGRVl 


GDTl/z^-^OD^ 

/-MUOT^Xl  \ 

V /RN/2  j 

RETURN  VIA 
\ QPRET  / 


L.__. 


TO  NEXT  PAGE 


«HT 

\nsmm£mm\m  lab 

mass. 


QRAWW  A.C.yvILLlAMS 

?nom 

WmST  .^//7 
OOGWR 
apwb" 


.C.VvILLlAMS 

#3^ 


AfOliO 

CUttMOE  AM  NAVtCATION 


SERVICER 


LUMINARY  ID 


DOCUMENT  NO. 

FC-3850 


FROK'  PRECEDING  PAGE 


v(t+at)-‘^ — v(t)+  ^ 

VNi^  -• — VN^+  GDTl/ 

2^+  &0t/2^  + C 

+ ilY(AT) 

ELVREF^ 

J 

RETURN  VIA 

\ 31D  / 


UPDATE  VELOCITY  VECTOR 


TMPTOSP^ 


CDUSPOTY  -* CDUTEMPY 

CDUSPOTZ  -» CDUTEMP2. 

CDUSPOTX  -• CDUTEMPX 


SUBROUTINE  TO  LOAD  CDUS  CORRESPONDING 
TD  PIPTIME  INTO  CDU SPtJT  VECTOR 


RETURN  VIA 
\ DANZ.IG  / 


DECREMENT 

ITEMPl 


WIT 

mmmmmim  lab 

CAMfFIOGE,  MASS. 

AfOLLO 

CMHAWcc  mm  navigation 

SERVICER 

DRAIW  A-C.WILLlAMSy 

c.-ia-4« 

erowr  O^JL. 
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IKV  3 1 SHEET  19  Of  22 

NSAMP-i — 6 


1 


TASKOVER 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

SERVICER 

DRAWN  .r 

i^2./'/C 

PRGMR  W 

o/'/r 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3850 

ANALST  . 

/ / 

DOCMR  ' 

APPR'D-^;)^TcT..I.^ 

Uni.l'l'i 

REV  3 ISHEET  20  Of  22 

SI  BliOUTINE 
NAME 


FLOW 

CILAliT 


SUBROUTINES  CALLED  WHICH  ARE 
FLOWED  ON  OTHER  FLOW  CHARTS 


DESCRIPTION 


WHERE 

CALLED 


AVETOMID 

FC-3350 

COMFAIL 

FC-3840 

LASTBIAS 

FC-3230 

PIPE  REE 

FC-3220 

PHERADAR 

FC-3600 

QUTCT  RIG 

FC-3320 

RlO.Rll 

FC-3930 

STOPRATE 

FC-3430 

SARDELAY 

FC-3040 

l/ACCS 

FC-3490 

1 /PIPA 

FC-3230 

INITIALIZE  PERMANENT  STATE  VECTOR  FOR 

COASTING  PHASE 

SII. 

14  ! 

I 

THRUST  P’AIL  PROGRAM  ; 

SH. 

13 

LAST  GYRO  COMPENSATION  IN  FREE  FALL 

SH. 

2 

TERMINATE  USE  OF  PIPAS 

SII. 

14 

RADAR  READ  INITIALIZATION 

SH. 

20 

COMPUTE  SINES  AND  COSINES  OF  CDU  ANGLES 

SH. 

10 

LANDING  RADAR  MONITOR 

SH. 

4 

ZERO  INPUTS  TO  AUTOPILOT 

SH. 

13 

DELAY  ACTIVE  TASK 

SH. 

2.  4 

COMPUTE  MOMENTS  OF  INERTIA 

SH. 

14 

COMPENSATE  PIPAS  AND  GYROS 

Sll. 

9 

GSOP 

SYMBOL 


MEANING 


ACCUMULATED  DELTA 


ENGINEERING 


FEET  SEC  I 


GRA\TTATIONAL  ACCELERATION  FEET  SEC 
S ECTOR  (DELTA  TIME) 


VEHICLE  MASS 
DELTA  PIPTIME 
LM  POSITION  VECTOR 
LM  \ ELOCITY  SECTOR 


STABLE  MEMBER  TO 
NAS'IGATION  BASE  TIUSNSFOR- 
MATION  MATRIX  FOR  LAST 
PIP  TIME 


POUNDS 
SECONDS 
FEET 
FEET  SEC 


IMT 

nawuwnwrww  iai 
CMwrase.  MASS. 


muo 

E Mm  mVICATION 


SERVICER 


LUMINARY  ID 
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APSFLAG 
FLAG  10 

BIT  13 

APS  BURN 

ALXFLAG 
FLAG  6 

BIT  2 

IF  IDLEFLAG  IS  NOT 
SET,  SERVICER  WILL 
iX)  D\"MON  ON  NEXT 
PASS 

A\'EGFLAG 
FLAG  7 

BIT  5 

AVEIL^GB:G  (SERVICER) 
DESIRED 

DHIFTFLG 
FLAG  2 

BIT  15 

T3RUPT  CALL  GYRO 
COMPENSATION 

ML'NFLAG 
FLAG  6 

BIT  8 

USE  LUNAR  LANDING 
AVEILYGEG 

NOH2  9FLG 
FLAG  3 

BIT  11 

NOT  ALLOWED 

i 

1 

1 

STEKHSW 
FLAG  2 

BIT  11 

STEERING  TO  BE  DONE 

SUKFFLAG 
FLAG  8 

BIT  8 

LM  ON  I.UNAR  SUIU-’ACE 

SWANOISP 
FLAG  7 

BIT  11 

LANDING  ANALOG 
DISPI..AVS  ENABI.ED 

USEyHFLG 
FLAG  13 

BIT  14 

GiMHAL  UNUSABI.K. 

USE  JETS  ONLY 

V37FLAG 
FLAG  7 

BIT  6 

AVERAGEG  (SERVICER) 
RUNNING 

LR BYPASS 
FLAG  11 

BIT  15 

BYPASS  ALL  LANDING 
RADAR  UPDATES 

NOLRREAD 
FLAG  11 

BIT  10 

LANDING  RADAR 
REPOSITIONING 

MEANIN'G  WHEN  CLEAR 

WHERE 

SET 

WHERE 

CLEARED 

WHERE  1 
TESTED  i 

DPS  BURN 

SH.  9,12  ; 

SERMCER  WILL  SKIP 

D\MON  ON  NEXT  PASS 

SlI.  12 

SH.  U 

SH,  12 

AVEa^GEG  (SERVICER) 

NOT  DESIRED 

SH.  2 

SH.  4 

T3RUPT  DOES  NO  GYRO 
COMPENSATION 

SIl.  14 

SH.  2 

DO  NOT  USE  LUNAR 

LANDING  AVEl^AGEG 

SH.  14 

SH.  4.  8. 

11 

R29  ALLOWED 

SIL  14 

STEERING  OMITTED 

SH,  12 

SH,  11 

LM  NOTON  LUNAR  SLRFACE 

Sil.  9 

1. AN  DING  ANALCXTi 

DISPLAYS  SUPPRESSED 

SH.  14 

TRIM  GIMBAL  MAY  HE 

U'SED 

SH.  13 

SH,  12 

AVEILYGEG  (SERVICER) 

OFF 

SH.  2 

SIL  14 

DO  NOT  BYPASS  LANDING 
RADAR  UPDATES 

sn.  4 

LANDING  RADAR  NOT 
REPOSITIONING 

SH.  20 

MT 

MsmnmKMLAt 
CflMlIMf.  MASS. 


Bil^8IBIi!S!8WSRE3r/. 
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GUitANCC  AND  NAVIGATION 


servicer 


LUMINARY  ID 


BC3T 


LUNAR  LANDING 


MAJOR  SUBROUTINES  ON  THIS  CHART 


P63LM  LUNAR  LANDING  BRAKING  PHASE  SH  2 

GUILDRET  GUIDANCE  ENTRY  FROM  R13  ROUTINE  SH  5 

P63DISPS  P63  DISPLAY  ROUTINE  ENTRY  SH  27 

FLATOUT  FULL  THROTTLE  ON  DPS  ENGINE  SH  39 

P66  SH  45 


c 


P63L,M  Lunar  landing  braking  phase  program 


Group  4 


Set  up 
restarts  to 
schedule  the 
next  location 
as  a FINDVAC 
job  with  same 
priority 


/R02B0TH 
''IMU  status 
check 
\ FC-3220 


WHICH  f-P63ADRES 
DVTHRUSH<=— DPSTHRSH 
DVCNTR  f—  4 
WCHPHASE<—  -1 
FLPASSO  f-0 


I 


Initialize  table  for  BURNBABY 
Initialize  DVMON 


s Initialize  ignition  algorithm 


y Clear  Bit  / 
\ 14  of  / 
\Ch.  12  / 


J 


Remove  track-enable  discrete 


FLAGOR^ 


'^lear  NOTHROTL 
Clear  REDFLAG 
Clear  LRBYPASS 
Set  MUNFLAG 
Clear  P25FLAG 
Clear  RNDVZFLG 
Clear  NOTERFLG 
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Landing  site  redesignation  not  permitted 

Do  not  bypass  LR  updates 

Servicer  calls  MUNRVG 

P25  not  ooerating 

P20  not  running 

Permit  Terrain  Model 
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RODCOUNT^ — 0 
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Entry  to  Guidance  from  R13  routine 
called  by  SERVICER  every  two  seconds 
after  throttle  up  in  BURNBABY 
routine. 
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OTHER  FLOWCHARTS 


Subroutine 

Flowchart 

Description 
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Called 

R02B0TH 

FC-3220 

IMU  status  check 

Sh.  2 

RP-TO-R 

FC-3340 

Transform  from  planetary  to  basic 
reference  system 

Sh.  3 

GUIDINIT 

FC-3950 

Initialize  WM^  and  IlANdI^ 

Sh.  3 

LEMPREC 

FC-3350 

Integrate  LM  state  vector 

Sh.  3 

MUNGRAV 

FC-3850 

Compute  lunar  gravitational 
acceleration 

Sh.  4 

NEWMODEX 

FC-3020 

Set  new  major  mode 

Sh.  6 

C13STALL 

FC-3340 

Wait  till  ok  to  write  ch.  13 

Sh.  7 

PRIOCHNG 

FC-3030 

Change  job  priority 

Sh.  8 

ALARM 

FC-3I40 

Store  alarm  code;  turn  on  program 
alarm  light 

Sh.  12.  19,  2(i 
46.  49 

INTSTALL 

FC-3350 

Test  availability  of  integration 

Sh.  19 

INTEGRVS 

FC-3350 

Integrate  state  vector 

Sh.  20 

STCLOK2 

FC-3840 

Schedule  start  of  CLOCKTASK 

Sh.  21 

R51P63 

FC-3510 

IMU  realignment 

Sh.  22 

PFLITEDB 

FC-3440 

Zero  attitude  errors,  set  deadband 
to  1° 

Sh.  22 

R60LEM 

FC-3420 

Perform  auto  attitude  maneuver 

Sh.  23 

VACRLEAS 

FC-3030 

Change  FINDVAC  job  to  NOVAC  job 

Sh. 27, 28 

FINDCDUW 

FC-3950 

Compute  commands  to  autopilot 

Sh.  26,  48 

STOPRATE 

FC-3430 

Zero  inputs  to  autopilot 

Sh.  26.  46,  49 

PRIOCHNG 

FC-3030 

Change  job  priority 

Sh.  30.  47 

*NBSM* 

FC-3320 

Transform  vector  from  NB  to  SM 
coordinates 

Sh.  31 

TPAGREE 

FC-3070 

Force  sign  agreement  of  MPAC^ 

Sh.  41 

POWRSERS 

FC-3070 

1 

Double  precision  polynomial 
evaluator 

Sh.  43 
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Called 

LOADTIME 

FC-3150 

Load  present  time  into  MPAC^^ 

Sh.  45 

LIMITSUB 

FC-3960 

Limit  value  in  L to  value  in  A 

Sh.  47 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


Lunar  Landing 


LUMINARY  ID 

DOCUMENT  NO. 

FC-3900 

REV  2 1 

ISHEET  510F  52 

FLAGS 
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i 

. 

Meaning  When 

Set 

Meaning  When 

Clear 

Where 

Set 

Where 

Cleared 

1 

Where  ' 
Tested 

NOTHROTL 
Flag  5 Bit  12 

Inhibit  full  throttle 

Permit  full  throttle 

Sh.  2 

REDFLAG 
Flag  6 Bit  6 

Landing  site  rede- 
signation permitted 

Landing  site  rede- 
signation not  permitted 

Sh.  29 

Sh.  2,  7. 

28 

Sh.  9/28 

LRBYPASS 
Flag  1 1 Bit  15  1 

Bypass  all  LR  up- 
dates 

Do  not  bypass  LR  up- 
dates 

Sh.  2 

MUNFLAG 
Flag  6 Bit  8 

SERVICER  calls 
MUNRVG 

SERVICER  calls 
CALCRVG 

Sh.  2 

i 

i 

P25  FLAG 
Flag  0 Bit  9 

P25  operating 

P25  not  operating 

Sh.  2 

i 

! 

RNDVZFLG 
Flag  0 Bit  7 

P20  running 

P20  not  running 

Sh.  2 

NOTERFLG 
Flag  1 Bit  11 

Terrain  model 
inhibited 

Terrain  model 
permitted 

Sh.  2 

f 

! INTYPFLG 

! Flag  3 Bit  4 

' 

Conic  integration 

Encke  integration 

Sh.  20 

1 

• MOO NF LAG 
i Flag  0 Bit  12 

Moon  is  sphere  of 
influence 

Earth  is  sphere  of 
influence 

Sh.  20 

j STEERSW 
i Flag  2 Bit  1 1 

Sufficient  thrust 
is  present 

Insufficient  thrust 
is  present 

Sh.  25 

FLUNDISP 
[Flag  8 Bit  10 

Current  guidance 
displays  inhibited 

Current  guidance 
displays  permitted 

Sh.  26 

RODFLAG 
Flag  1 Bit  12 

If  in  P66,  normal 
operation  continues 

If  in  P66,  reinit- 
ialization is 
performed 

Sh.  45 

P66PROFL 
Flag  0 Bit  1 

Continue  P66 
horizontal  vel. 
nulling 

Stop  P66  horizontal 
velocity  nulling 

Sh.  27 

Sh.  48 
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PRGMR 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3900 

ANALST 

OOCMR 

n/xs/f) 

APPR'D  R tWLCvCfcui 

REV  2 ISHECT  520F  52 

LANDING  CONFIRMATION 


LAND  JUNK  Sh.  2 
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Landing  Confirmatiun 

1 

1^1 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3910 

ANALST 

■‘V^'Af 

HCT— 

(landjun:^ 


GROUP  4 


Set  up  restarts  to 
schedule  the  next 
location  as  a 
FINDVAC  job  with 
same  priority 


N 

Inhibit 

inter- 

rupts 

^ 

L 

/ZATTERORN 

Zero  inputs 
to  autopilot 

FC-3430 


Set  PULSEFLG 
Set  SURFFLAG 
Clear  LE TABOR Tt 
Set  APSFLAG 


Minimum  impulse  command  mode 
LM  on  lunar  surface 
Abort  programs  are  not  disabled 
Ascent  stage 


ALPHAV 

<- 

RN 

V 

V 

MPACj^ 

<- 

PIPTIMEj^ 

Set 

LUNAFLAG 


Lunar  Lat-Long 


/ LA T- LONG 

/Convert  Radius 
Vector  to  Lat, 
'Long  and  Altitude/ 

\ FC-3330 


V 

Next  Sheet 
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Landing  Confirmation 

WBBk 

LUMINARY  ir 

DOCUMENT  NO. 

1 FC  3910 

ANALST 

WSSi 

REV  1 ISHEET  2 OF  5 ' 

\gotopooh/ 
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Landing  Confirmation 

DRAWN 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3910 

W^S^ 

REV  1 ISHEU  3 OF  5 1 

FLAGS 


SUBROUTINES  CALLED  ON  OTHER  FLOWCHARTS 


Subroutine 

Flowchart 

^ 

Description 

Where 

Called 

ZATTEROR 

FC-3430 

Zero  inputs  to  autopilot 

Sh.  2 

LAT-LONG 

FC-3330 

Convert  radius  vector  to  Lat.  , 

Long,  and  altitude 

Sh.  2 

R-TO-RP 

FC-3340 

Convert  vector  from  reference  to 
planetary 

Sh.  3 

REFMF 

FC-3520 

Compute  LM  attitude  in  moon  fixed 
coordinates 

Sh.  3 

CDU*SMNB 

FC-3320 

SM  to  NB  coordinates  using  CDU 
angles 

Sh.  3 
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Landing  Confirmation 


DOCUME.NT  NO. 

LUMINARY  ID  FC-3910 


SHEET  5 OF  5 


R09,  RIO,  Rll 


RIO,  Rll 

Sh. 

2 

FLIP 

Sh. 

3 

10,  11 

Sh. 

4 

LANDISP 

Sh. 

6 
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S'  R09.  RIO,  Rll 

WjKl/fl 

ANALST 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3930 

DOCMR 

APPR'O  rVYl 

/i/aj/t? 

From  Prececttng  Sheet 


Next  Sheet 
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DRAWN  M 

22^2^ 

R09,  RIO,  Rll 

jgsm 

TiUMINARY  IE 

From  Preceding  Sheet 


/ FLIP  '' 
/ Flash  LR 
Velocity  fail 
\ Light 
\ SH3  / 


o' 

■n't 

LI  ^ 
> 

/ Is  \ 
<XETABORT 
set  ? > 

Yes\ 


Are  abort  programs 
enabled? 


\ P7 INOW  ? 


Is  an  abort 
stage  com  - 
manded  by 
astronaut  ? 


/ Is 
MODREG 
V = 71? 


Are  we  in  P71  now? 

Yes 


I Is  bit  4 / 

\of  chan  f 
\30  = 0 / Yes 


P70NOW?! 


P71A 

FC-3970^ 


Go  to  P71 


/ Is 
MODREG 
V = 70? 


Are  we  in 
vP70  now? 


LANDISP 
X.  SH6  ^ 


^ No 
Next  Sheet 
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PRGMR 

7«A*/<f 

ANALST 

DOCMR 

APPR'D  P,n5L,-h..JYY\ 

APOLLO  GUIDANCE  AND  NAVIGATION 

R09,  RIO,  Rll 

771!  1 771  DOCUMENT  NO. 

LUMINARY  ID 

REV  o ISHEET  4 of  2 


From  Preceding  Sheet 


Is  an  abort  commanded 
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IdRAWN  

7*/*VAt 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3930 

ANALST 

DOCMR 

fflIWK 

|REV  2 ISHEH  5 f'’  21  ] 

LANDISP 


Next  pass,  do  ALTOUT 


Tell  hardware  to  interpret  next  command 
as  ALTRATE 


Next  Sheet 


From  Preceding  Sheet 


T 

1 


ySet  Bit  3 of/ 
\chan  14 


Drive  the  tape  meter. 

Command  to  display  altitude  or 
altitude  rate,  depending  on  Bit  2 


of  Chan  14. 
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R09,  RIO,  Rll 

LUMINARY  ID  DOCUMENT  NO. 

FC  -3930 

ANALST  ^ 

DOCMR 

iMAi 

APPR'D(MNW.r..JL.. 

fc/ay'ts 

REV  2 ISHEH?  OP  21 

From  Preceding  Sheet 


^LDDATA  +lj 


-^^^^-<dvERFLOW>-^ 


SIGN(ALTSAVE)BIT  1 


fDATAOUTl 


ALTM  ■« — A I Fifteen  bit  output 


Set  Bit  3 / Drive  the  tape  meter. 

i of  / Command  to  display  altitude  or  altitude  rate, 
\chan  14/  depending  on  Bit  2 of  Chan  14. 


VTASKOVERi 
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R09,  RIO,  Rll 


DOCUMENT  NO. 

LUMINARY  ID  FC-3930 


SHEETIO  Of  21 


Are  we  in  Ascent  trajectory? 


Write  A & 
Chan  12 
into 

Chan  12 


— 

1 

i 

f 

(abortoi^ 

I Clear  Bits  7| 
& 8 of 
IMODES33 


Clear' 
iDIDFLBIT 


TASKOVER, 


(&  means  logical  "and") 

Bit  8:  Remove  display  inertial  data 
enable  discrete 

Bit  2:  Disable  RR  CDU  error  counters 


Bit  7:  Next  pass,  do  ALTROUT 

Bit  8:  No  inertial  data  enable 
discrete 


No  inertial  data 
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DRAWN 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3930 

DKMR  Ji' 

APPRWfW'.f,^. 

DISINDAT 


Store 
Q in 

.ADQSAVE 


Yes  ^^iDFLBn 
\ Set? 


Insures  return  to  ALTROUT  +1  (SH  6) 
or  ALTOUT  +1  (SH  8) 
if  we  go  to  SPEEDRUN  (SH  14). 


Has  intialization  taken 
place  ? 


SPEEDRUN 
V SH14  ^ 


TASKOVER/ 


DIDFLBIT  Indicates  initialization 
(bit  14,  ELI) 


£leaE^ ' 

IIVIODES33  Next  pass,  do  ALTROUT 


RIOFLBIT 
set?  , 


Are  we  in  Ascent  trajectory? 


Set  bit  8 
\chan  12 y 


Issue  display  inertial  data  enable 
discrete 


Next  Sheet 
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> ROD,  RIO,  Rll 


DOCUMENT  NO. 

LUMINARY  ID  FC-3930 


Enable  RR  CDU  error  counters 


Indicate  display  inertial  data  enable  discrete  was 
issued. 


Next  Sheet 
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^ R09,  RIO,  Rll 

Idrawn 

^^irsk 

1 DOCUMENT  NO. 

LUMINARY  IDj  FC-3930 

ANALST  ^ 

DOCMR 

REV  2 ISHEET  14O'  2] 

From  Preceding  Sheet 


Next  Sheet 
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luminary  IE 

DOCUMENT  NO. 
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ANALST 

DOCMR 
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From  Preceding  Sheet 


0) 

(D 


X 

cu 
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^ R09,R10,R11 

DRAWN 

'I’Mn 

LUMINARY  ID 

DOCUMENT  NO. 

FC  -3930 

ANALST  ^ 

DOCMR 

iMn 

APPR'D  Q-  CaXSj 

REV  ^ ISHEET  i / Tf  , 

.XVBITSi 


From  Preceding  Sheet 


:ER0LST'5 


RUPTREG3#tTEMP5  A 
A Zero 


' ZEROLSTY  +3 
V . 


TRAKLATV#ITEMP5  A 

CDUTCMD|ITEMP5  RUPTREG3#ITEMP5 

LATVMETR#ITEMP5  LATVMETR#ITEMP5 
+ + 
+RUPTREG3#ITEMP5 


No  +0  allowed 


VMONITOR 
\SH  16  / 


1TEMP5  = 0^ 


Is  Bit  2 
\of  Ch.  U 

\ Set?  , 


Are  RR  error  counters 
enabled  ? 


DISPRSET 

Sh.  11 


Re- initialize  Landing 
Analog  Displays 


Set  bits  / Drive  the  cross  pointers. 

12  & 11  oy  Command  to  display  the  Forward 
\chan  14/  and  Lateral  velocities  on  the 
\ / cross  pointer  displays. 


Return  via 
LADQSAVE/ 
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R09,  RIO,  Rll 


I DOCUMENT  NO. 

luminary  i4  FC-3930 


From  Preceding  Sheet  From  Preceding  Sheet 


ROUTINES  CALLED  ON  OTHER  FLOWCHARTS 


Routine 

Flowchart 

Description 

Where 

Called 

YARD EL AY 

FC-3U4U 

Wait  specified  time 

Sh.  14 

P71A 

FC-3970 

P71 

Sh.  4 

P70A 

FC-3970 

P70 

Sh.  5 

FLAG 


Name 

Meaning  When  Set 

Meaning  When  Cleared 

Where 

Set 

Where 

Cleared 

Where 

Tested 

AVEGFLAG 
Flag  7 Bit  5 

AVERAGEG 
(SERVICER)  desired 

AVERAGEG  (SERVICER 
not  desired 

Sh.  2 

HFLSHFLG 
Flag  11  Bit  1 

LR  altitude  fail  lamp 
should  be  flashing 

LR  altitude  fail  lamp 
should  not  be  flashing 

Sh.  3 

VFLSHFLG 
Flag  1 1 Bit  2 

LR  velocity  fail  lamp 
should  be  flashing 

LR  velocity  fail  lamp 
should  not  be  flashing 

Sh.  3 

LETABORT 
Flag  9 Bit  9 

Abort  programs  are 
enabled 

Abort  programs  are 
not  enabled 

Sh.  4 

RIOFLAG 
FlagO  Bit  2 

RIO  outputs  data  to 
altitude  and  altitude 
rate  meters  only 

Besides  output  when 
set,  also  to  forward 
and  lateral  velocity 
crosspointer 

Sh.  11 

12 

16 

DIDFLAG 

Inertial  data  is 
available 

1 

Perform  data  display 
initialization  functions 

Sh.  12 

Sh.  11 

Sh.  12 
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PRGMRi^y^.^,«3^£)2» 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3930 

ANALST  ^ 

DOCMR 

WISIKh 

R12  - DESCENT  STATE  VECTOR  UPDATE 
MAJOR  SUBROUTINES  ON  THIS  CHART 


VERB57 

Sh. 

2 

VERB58 

Sh. 

4 

VERB59 

Sh. 

4 

TEROFF  (VB68) 

Sh. 

5 

RDIHJSECK 

Sh. 

6 

LRPOS2 

Sh. 

7 

MUNRETRN 

Sh. 

9 
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R12  - Descent  State 

Vector  Update 

DRAWN  ^ L).ArJj 

PRGMR 

msk 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3935 

ANALST 

DOCMR 

REV  2 ISHEET  1 OF  3 5 

Keyed  in  by 
astronaut 


^ V57E 


Permit  j 
J.anding  radar/ 
updates  J 


MIT  INSTRUMENTATION  LAB 
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DRAWN 
PRGMR 
ANALST 


OOCMR 


APOUO  GUIDANCE  AND  NAVIGATION 


Ri2  - Descent  State 
-clor  Pr.dati-' 


UMf 


ID 


DOCUMENT  NO. 


_APPR'Di?^^„(TA 


REV  2 


SHEET2  Of  35 


/2SECDELY 


' Delay  job  \ 
2 sec. 

\ / 


\ FC-3050  / 


^^Are 
"Doth  bits  5, 
of  EXTVACTXy^ 
\ =0? 


/^Is 

/oit  5 of  ^ 
EXTVACT 
\ =1?  / 


DSP68 

Sh.  2 

J 

ENDEXT 


DSP5068 


Immediate  return 


Enter 


/ GOMARK3R  -1  \ 


Keyed  in  by 
astronaut 


EXTENDED  VERB  58 


V58E  \ 
Inhibit 

landing  radar 
updates  . 


Purpose:  To  inhibit  the  incorporation  of 

landing  radar  data  during  descent 
state  vector  update 


Keyed  in  by 
astronaut 


LROFF 


Clear 

LRINH 


GOPIN 

^FC-310Q 


EXTENDED  VERB  59 


Command 
LR  to 
position  2 


LRPOS2K1 


X Is 
AVEGFLAG 
v Set?  / 


Landing  radar  updates  inhibited  by 
astronaut 


Exit  via  GOPIN 


Purpose:  To  drive  the  landing  radar  to 
position  2 (final  approach) 


Bypass  all  landing 
radar  upaates  (R12)? 


Yes,  operator/^ 
error^^^ 

1 LRBYPASS 


ALM/END 

FC-3100 


via  postjump 

V 

V59GP63  I ( 


fLRPOS2KlJ 


/kPRUSECK 
Test  For 
LR  or  RR 
Being  Used 

\ Sh.  6 ^ 


Next  Sheet 


Error  Exit 


FC-3100 
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R12  - Descent  State 
Vector  Update 


DOCUMENT  NO. 

LUMINARY  ID  FC-3935 


SHEET  4 OF  3 5 


From  Preceding  Sheet 


(£rP2COMI^ 


LRPOS2 

Reposition 

Landing 

radar 


Output;  Landing  radar  moves  from 
position  1 to  position  2 


Sh.  7 


Bad  return 


rr 

(lRP2AL]V^ 

~ir 


ALARM 
Store 

alarm  code 
00523^ 

FC-3140 


^RADSTALIX 
Wait  for 
LR  antenna 
repositioning^ 

FC-3220  / 


Output:  Turn  on  program 
alarm  light 


(GOPINNM 


"Landing  radar  antenna 
did  not  achieve  position 


PINBRNCH 


FC-3080 


Good  return 


LR  has  reached 
position  2 


^V59GP63^ 


I RPCRTIME  - POSMAX| 
! RPCRTQSW  - -BIT  14  i 


c 


TEROF^ 


Extended 
\erb  68 


via  UPFLAG  (FC-3050) 


Set 

NOTEKFLG 


GOPINNERi 

_ Sh.  5 J 

FC-3100 

Set  Flag  1 bit  11 
to  bypass  terrain 
model. 


Exit  via  GO  PIN 
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DRAWN J. 

R12  - Descent  State 

Vector  Update 

PRGMR  ^ 

l.UMINARV  ID 

DOCUMENT  NO. 

FC-3935 

ANALST 

DOCMR 

‘CiiJiJI 
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Vector  Update 

DRAWN ^ 

DOCUMENT  NO. 

LUMINARY  ID  FC-3935 

ANALST 

DOCMR  '>*' 

REV  2 ISHEET  6 OF  35 
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R12  - Descent  State 
Vector  Update 


DOCUMENT  NO. 

UUMINARY  ID  FC-3935 


.RPOSCAI 


Monitor  LR  position  2 once  per 
second  for  15  seconds 


14  Initialize  counter  for  15  samples 


A-«— 

14 

► 

A«-  SAMPLIM  -1 


(LRPOSNX1 


SAMPLIM* 


/FIXDELAY 

Delay  task  1 
sec. 

\ FC-3040  , 


Is  bit  7 / 

lof  chan  

133=0?  /Yes 


Test  LR  in  position  2 


LR  did  reach 
position  2 


Decrement 

SAMPLIM  Is  ^ 

^=<SAMPLIM 

=0? 


Test  max 
> time  up 


.ASTLRDTJ 


v^ARDELAY^ 
Delay  task 
2 seconds 

FC-3040  / 


Wait  for 
\ antenna 
\ bounch 
/to  die 
out 


LR  did  not 
reach  posi- 
tion 2 in 
15  sec. 


Clear  bit  i 
\ 13  of  / 

\chan  12  / 


Remove 

command 


.Clear  bit 
\ 13  of  j 
\chan  12  / 


Remove 

command 


Exit  via  bad 
return  for 
rad  stall 


RDBADEN1 

FC-3600 


IGOODEND  Exit  via 

JC-3600  J pod  re- 
's. turn  for 

radstall 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


■R12  - Descent  State 
Vector  Update 


DOCUMENT  NO. 

LUMINAR'i  ID  FC-3935 


SHECT  8 Of  35 


LROFF  ? 


Sh.  10 


MUNRETRN)  two  seconds 


Called  by  SERVICER  every 


Yes 


No 

X 1 

COPYCYCl 

FC-3850 

Yes 


Return  to  SERVICER 


MPACj^—  1-30KFT  + MPAC 


No 

via  UPFLAG 


R12 


Sh.  10 


Se- 

XOVINFLG 

Set 

XORFLG 


▼ 

Next  Sheet 


X-axis  override  locked  out 

Below  limit  inhibit  X-axis 
override 
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R12  - Descent  State 

Vector  Update 

1 

rnn 

DOCUMENT  NO. 

LUMINARY  ID  FC-3935 

ANALST 

DXMR 

winKi 

BiSlEE13il 

From  Preceding  Sheet 


ST511CTR 


Return  to  SERVICER 


No 


PLO^^  HBEAMNB  ^ Xl^  (XNBPIP^) 
PLO^^r—  (2®-HMEAS)  (HSCAL)-PLO^ 
MPACp  PL  Oj^ 

PL  Op  — (PLO^-UNIT/R/^)  - HCALCj^ 


Next  Sheet 


MIT  INSTRUMENTATION  lAB 
CAMBRIDGE,  MASS. 
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R12-Descent  State 

Vector  Update 

DRAWN  t'. 

PRGMR 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3935 

ANALST 

1 

mm 

WtPSS 

REV  2 [SHEET  130F  35  1 

From  Preceding  Sheet 


Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOUX)  GUIDANCE  AND  NAVIGATION 

R12  - Descent  State 

Vector  Update 

DRAWN 

miss 

PRGMR 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3935 

ANALST 

MSS^^igssfm 

WIBIP. 

REV  2 ISHEH  140f  35| 

Next  Sheet 


From  Preceding  Sheet 


MPAC^<4—  |DELTAH^l-DELQFIX^j2^-HCALCj 


£ 


AH  too  large 


HFAIL 


LRLCTR 

◄ 

l+LRLCTRl 


BRANCH 


Test  MPAC, 


FC-3070  / 


Increment 
L counter 


< 0 

via  DOWNFLAG 


Clear 
HFAILFLG  I 
.SHFLG 


LR  updates  inhibited 
by  astronaut 


IVMEASCHK 


Sh.  20 


LR  altitude  passed  reasonable 
test  LR  altitude  fail  lamp 
should  not  be  flashing 


LR  updates  permitted 
by  astronaut 


Next  Sheet 
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Vector  Upd->,  te 

DRAWN 

PRGMR  ' 

DOCUMENT  NO. 

■<,'-3935 

ANALST 

DOCMR 

\ UiJiiUrJi  t) 

REV  2 ISHEH  17  3E  35l 

From  Preceding  Sheet 


Load  A,  L for  ALSIGNAG 
routine  store  DELTAH  in 
MPAC 


A.  L ^ — HCALC^ 

MPACjq'^ DELTAH^  I 


Next  Sheet 


From  Preceding  Sheet 


GROUP  5 


Set  up  restarts  to 
schedule  the  next 
location  as  a 
FINDVAC  job  with 
same  priority 


Next  Sheet 


From  Preceding  Sheet 
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wm 

BIH 

DOCUMENT  NO. 

T^'C-3935 

ANALST 

DOCMR 

win 

IQIFS 

REV  2 |SHEn21  OF  35  1 

From  Preceding  Sheet 


Next  Sheet 
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HI  2 - IDescent  State 

Vector  TJpdate 

msi 

T.UMINAH\  11 

Ianalst 

REV  ^ ISHEET  22  OF  35 

From  Preceding  Sheet 


ILRMCTR 


1+LRMCTR 


Increment 
M counter 


Delta  V a 0 


/BRANCH  N 
Test 
MPACj^ 

(DELTA  V) 


VFAIL 
Sh.  32 


<0 

i via  DOWNFLAG 

Cleax 

VFAILFLG  LR  velocity  passed  reasonable  test 
VFLSHFLG  LR  velocity  lamp  should  not  be  flashing 


Update  X-axis  velocity 


/Is  \ 
VXINH 
set? 


Test  for  update  of 
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RODSCALljp-  RODSCALEj^ 
LASTTPIPj^-  PIPTIMEj^ 


Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


Landing  Auto  Modes  Monitor 


LUMINARY  ID 


REV  3 


IDRAWN 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


PRGMR 
ANALST 


lOOCMR  yy'g 


iAPPR'D'^^gc^^.CS&at^7bo/»f^g^^ 


APOaO  GUIDANCE  AND  NAVIGATION 


Landing  Auto  Modes  Monitor 


LUMINARY  ID 


DOCUMENT  NO. 

FC-3940 


ISHEn  5 OfT 


Subroutine  to  update  RODCOUNT  with 
output  from  rate  of  descent  switch 


DRAWN 


MIT  INSTRUMENTATION  lAB 
CAMBRIDGE.  MASS. 


PRGMR 
ANALST 


POCMR 


APOLLO  GUIDANCE  AND  NAVIGATION 


Landing  Auto  Modes  Monitor 


LUMINARY  ID' 


DOCUMENT  NO. 

FC-3940 


[SHEET  0f~7~ 


Subroutine 

Flowchart 

Description 

Where  Called 

DISPEXIT 

FC-3900 

Lunar  Landing  Entry  Point 

Sh.  2 

GUILD  RET 

Lunar  Landing  Entry  Point 

Sh.  3 

VERTGUID 

Lunar  Landing  Entry  Point 

Sh.  3.  5 

NEWMODEX 

Change  Major  Mode  Display 

Sh.  3 

FLAGS 


Name 

Meaning  When  Set 

Meaning  When  Cleared 

Where 

Set 

Where 

Cleared 

Where 

Tested 

ZOOMFLAG 
Flag  5,  Bit  8 

Throttle- up  has 
occured  in  P63 
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schedule  next 
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' R02B0TH  ' 
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IMU  is  on 
and  aligned 
\ FC-3220  / 


Returns  only  if  IMU  is  OK;  otherwise  P 12  is  terminated 


Initialize  Av  Monitor  parameters: 


DVTHRUSH  - THRESH2 


DVCNTR 


Set  AVpj.  = minimum  acceptable 
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to  APS  value:  . 0308m/csec 


@ 10'  X 14 


Counter  N @ 2 ' 
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flashing  t 
V06N33 y 
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min 
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OXX. XX 

sec. 

GOTOPOOH 
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Proceed 
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Set  up  restarts  to 
schedule  next 
location  as  a 
FIND  VAC  job 
with  priority  13 


r Set 
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ACC4-2FL, 

RIOFLAG 
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SERVICER  will  call  MUNRVG 
4-jet  translation  requested 
RIO  will  output  data  to  altitude, 
altitude  rate  meters  only. 


P20  not  running 


Indicate  pre- ignition  phase  of  ascent 
guidance 

Indicate  vertical  rise 
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Output;  WM^ 


/LAND/j^ 


-M 


LS 


moon  rotational 
velocity  in 
SM  coordinates 
in  rad/csec  @ 2 

landing  site  radius 
94. 

in  m @ 2 


Input:  /LAND/p  = r^g  in  m @ 2^^ 

VRECTCSM^  = = CSM  velocity 

in  reference  coords 

RRECTCSM^  ~ ''c  ~ CSM  position 

in  reference  coords 

Output:  1/DV3q,  1/DV2j^,  l/DVl^^ 

= thrust  filter  parameters 
in  csec /m  @ 2 ^ 


at,3 

= 

/ 2 ^ ^-9 

Hrp  m m/csec  @ 2 

TBUPjj 

= 

T in  csec  @ 2 

TTOj^ 

= 

At.  „ in  csec  @ 2 

tail-off 

= 

V in  m/csec  @ 2 ‘ 
e 

RCO^ 

= 

Rj^  in  m @ 2^^ 

TXO^ 

= 

X-axis  override  time 
in  csec  @ 2^^ 

YCO^ 

= 

Yp  in  m @ 2^^ 

YDOTDj^ 

= 

. Y 

Yp  in  m/csec  @ 2 

QAXIS  ^ 

= 

Q in  SM  coords  @ 2 ^ 
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! 
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/ Integrate  \ 

/ state  vector  \ 
\ to  tj  / 

\ FC 

-3350  / 

Set  t,-^  = burn  time  in 
csec  @ 2 


tjQin  csec  @ 2 


Input  = TDEClj^ 
(=  tj^  here) 


Output  = RATT, 


VATT, 


tj^  in  csec  @ 2 


in  rad/csec  @ 2 


r (tj)  = r Rjq) 

in  reference  coords 
in  m @ 2 

v(tj)  = V (tj^; 

in  reference  coords 




in  m'csec  (®  2 ' 


Convert  state  vector  at  t. 


to  SM  coordinates: 


VIS^  - 2 • REFSMMATj^  X VATTy 


MPACy.-^  2”.  REFSMMATj^- RATTy 


Ry-  MPACy 


V (tjQ)  in  m/csec  @ 2‘ 
r (tjQ)  in  m @ 2^^ 


where  REFSMMAT, 


= reference  - SM 
coordinate 
transformation 

ri  1 


matrix  @ 2 

2 2®  factors  are 

for  scaling 
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Y 
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target  parameters 

Rl;  xxxx.  X ft.  /sec. 

(ZDOTDj^) 

R2  : xxxx.  X ft.  /sec.  Rj^ 

(RDOTDp) 

R3:  xxxx.  X nm.  CR 

(XRANGEj^) 
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1/DVOj^- 
1/DVljj-  l/DV2jj 
l/DV2p—  l/DV3jj 

1/DV3„—  2"^^-^  ABDVCONV, 


Update  thrust  filter 
parameters 

in  csec/m  @ 2 ' 


where: 

ABDVCONVj^  = new  Av 

increment 
in  m/csec 

@ 2^ 

- 12 

2 factor  is  for  scaling 


Update  T = mass  = mass  flow  rate 
ratio 


From  Preceding  Sheet 


Compute  thrust  acceleration 
/ 2 

a.  m m/csec 

@2-9 

7 

where:  = v in  m/csec  @ 2 

D e 

TBUPj^  = T in  csec  @ 2^"^ 
2 ^ factor  is  for  scaling 
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Ascent  Guidance  Computations 
- common  entry 


/R/MAG^. 


R in  m @ 2 


ZDOTj^^  ZAXISl^) 


Z = y • 1^2;  in  m/csec  @ 2 ‘ 

where:  V„  = y in  SM  coords 

* 1 
in  m/csec  @ 2 

ZAXISl,,  = u in  SM  coords 
V — z 


u = u X u_ 
-y  -z  -R 


LAXISy—  2^  (ZAXISly  V UNIT/R/  ) -y 


2 factor  is  for  scaling 


u = Y-axis  of  local  vertical 


coordinate  system 
in  SM  coords  (S'  2 ^ 


where:  ZAXISl,  = u in  SM 
V -7.  . 

coords  @ 2 
UNIT/R/..  = u_  in 

V ~ K 


SM  coords  @ 2 
2^  factor  is  for  scaling 


YDOTr 


2 (V  yLAXISy) 


Y = v-u^  in  m/csec  @ 2* 
where:  Vw  = v in  SM  coords 

- 7 

in  m/csec  @ 2 

LAXIS,r=  u in  SM  coords  @ 2^ 
V -y 

2^  factor  is  for  scaling 


Next  Sheet 
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P12-Ascent  Guidance 


LUMINARY  ID 

DOCUMENT  NO. 

FC-3950 

REV  1 

ISHEH  15  Of  63 

From  Preceding  Sheet 

/ YCOMP  \ 

/ Compute  \ 

\ Y / 


Sh.  6 


Input:  RCOj^  = Rj^  in  m @ 2 

UNIT/R/y  = u^  in  SM  coords  @ 2' 
QAXIS^  = Q in  SM  coords  @2^ 
Output:  Yj^  = Y in  m @ 2^^ 


2 - 9 

Compute  in  m/csec  @ 2 


where : 

UNIT/R/,,  = u @2^ 

V —r 

Vy  = V @ 2*^ 

/R/MAGp  = r @ 2^^^ 
GDTl/2y=  l/2gAt@2 

= g At  @ 2® 
2SEC(18)j^  = At  @ 2^^ 


Is  P70  or  P71  running? 


P7071FLG 
V Set?  /• 


/ZDOTDCMPN 

Compute 

\ Sh.  46  7 


Input:  JPARMj^  = 2J  in  m @ 2“^ 

KPARMj^  = 2K  in  m/rev  @ 2" 


R(CSM), 


= R in  m,  in  SM  coords 


= R in  m,  in  SM  coords 
— c 

= “]y[  rad/csec  in  SM  coords 


= Rp  in  m @ 2" 


Output:  ZDOTDp  = Z^^  in  m/csec  @ 2‘ 


DZDOTpj  - ZDOTDp  - ZDOT^ 

A Z = Zp  - Z 

DYDOTp  — YDOTDp  - YDOTp 

A Y - Yp  - i 

DRDOTj^  *-  RDOTDj^  - RDOTp 

A R = " R 

in  m/c  sec 


Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CWMBRIDGE,  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


P12-Ascent  Guidance 


DOCUMENT  NO. 
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REV  SHEH  160f  63 


From  Preceding  Sheet 


Compute  V in  SM  coords  in  m/csec  @ 2 ' 

VJ 


Vq  = ARUj^  + AYhy  + 


VGVECT^^  2 


DRDOTj^- UNIT/R/^  + DYDOTj^- LAXIS^  + DYDOT^^- Z AXIS 


where: 

UNIT/R\,  = u 
V — r 

LAXiSy  = Uy 

ZAXISly  = 

all  in  SM  coords  @ 2 ^ 
2^  factor  is  for  scaling 


Adjust  in  SM  coords, 

^ 7 

in  m/csec  @ 2 

to  account  for 
where : 

TGO„  = t in  csec  @2^"^ 
D go 

GEFFj^  = in  m/csec 


= V ^ - l/2t  g „ u 
— G — G go  ^eff  — r 


(VGVECTy^  VGVECTy  - 2 ^(TGOj^-  GEFFj^- UNIT/R/y) 


eff 


@ 2 


-9 


UNIT/R/^  = u in  SM  coords 
V r - 

@ 2^ 

2^  factor  is  for  scaling 


Convert  Vq  to  body  (NB)  coords 


MIT  INSTRUMENTATION  lAB 

CAMBRIDGE.  MASS. 
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DOCUMENT  NO. 

LUMINARY  ID  FC-3950 

ANALST  V/  ' 

DOCMR 

APPR-D-(jlYV^  

REV  [SHEET  19  OF  63 

From  Preceding  Sheet 

(T2TESTM 


t < t„  = 2 sec.  ? 


< 2 sec 


CMPONENT 


I Sh.  24  I 


MPACj^  — 


TBUPj^  - TGOp 
TBUP^ 


LOGSUB 

Compute 

Logarithm 


\ Sh. 

50  / 

-L  = -In 

PLO^^ 

2®.  MPAdj^ 

Input:  MPAC_  = quantity  @ 2 


Output:  MPAC„  = -In  (quantity)  @ 2‘ 


■L  @ 2^ 

5 

where  2 factor  is  for  scaling 


•^12  = ^ 


t 

+ ^ 
L 


PL2  — TBUPp,  - — — 

^ ^ 25.  MPAC, 


D ^2  csec  @ 2 ^ 

where  TBUP^  = t in  csec  @2^* 

TGO„  = t in  csec  @ 2 
D go 

5 

2 factor  is  for  scaling 
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From  Preceding  Sheet 


Next  Sheet 
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DRAWN 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3950 

ANALST  ^ ' 

DOCMR 

REV  ISHEET  210F  63  1 

From  Preceding  Sheet 


fCHKBMAG) 


PRATEp  < 

2^-  PRLIMITj^-  TBUPj 


1 < B 


PRATEj^  — 2^-  PRLIMITj^-  TBUP^ 


PROK 


Set  B to  minimum  in  m/csec  @ 2 


PRLIMIT^ 


in  m/csec^  @ 2'  ^ ^ 

min 


TBUPj^  = T in  csec  @ 2^ 

4 

2 factor  is  for  scaling 


2 - 8 

Compute  D in  m/csec  @ 2” 

where : 


PL4j^  = Dg  j in  csec 


DYDOTp  = Yp-Y  in 

m/csec  @ 2 ^ 

YCO^  = Yj^  in  m @ 2^' 

Yj^  = Y in  m @ 2'^^ 
YDOTj^  = Y in  m/csec 


TGO„  = t in  csec 
D go 

PL6„  = E in  csec 

@2^3 

2 

2 factor  is  for 
scaling 
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From  Preceding  Sheet 


P7071FLG  ' 
\ set  ? / 

Yes 


No 


1 

, -i- 

I CMPONENT  +6 
Sh.  25 


▼ 

Next  Sheet 
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iREV  ISHEET  240f  64  j 

From  Preceding  Sheet 


Input:  /R/MAGj^  = 
RDOTj^ 

^ 94. 

R in  m @ 2 

7 

R in  m/csec  @ 2 

TGO^  = 

t in  csec  @ 2 

go 

PCONSj^  = 

g 

A in  m/csec  @ 2 

PRATE  = 

2 

B in  m/csec  @ 2 

TBUPjj 

17 

T in  csec  @2 

Output:  RPq  = 

24 

Rp  in  m @ 2 

Compute  acceleration  components 


A + B At 


*TR 


- S, 


eff 


, PCONS„  + PRATE  • 100CS„ 

ATR^*-  2^ - GEFF 

D mT-»TTT%  ■I-' 


TBUP 


D 


2 - 9 

in  m/csec  @ 2 
Iwhere : 

PCONSj^  = A in  m/csec  @ 2® 
PRATEj^  = B in  m/csec^  @ 2"^ 


17 


lOOCSj^  = At  = 100  csec  @ 2 
TBUPq  = t in  csec  @2^^ 
GEFFj^  = in  m/csec^  @ 2 ^ 

2^  factor  is  for  scaling 


t 

Next  Sheet 
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DOCMR 
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From  Preceding  Sheet 


ATYp, 

C + DAt 
®TY  T 

^ YCONSp  + YRATEj-j-  lOOCS^^ 
TBUPp 

PLOy^ 

-H  ""  ^TY-Y  ®TR-R 

2 ’■•  [ ATYjj-  LAXISy  + ATRp,-  UNIT/R/y] 

2 - 9 

a^pY  m/csec  @ 2 
where : 

YCONSpj  = C in  m/csec  @ 2^ 
YRATEjj  = D in  m/csec^  @ 2"' 
lOOCSpj  = At  = 100  csec  @2^’^ 
TBUPp,  = T in  csec  @ 2 

2^  factor  is  for  scaling 


a„  in  SM  coordinates 
9-9 

in  m/csec""  @ 2 
where 

LAXISy  = Uy  in 


SM  coords  @ 2 
UNIT/R/y  = Upj  in 

SM  coords  @ 2 
2^  factor  is  for  scaling 


PL8j^^  -iPLOyl^ 

ATp 


an®  2-"^ 
ay®  2-^ 
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DOCUMENT  NO. 

LUMINARY  ID  FC-3950 


REV 


UlaiMdLJJcll 


From  Preceding  Sheet 


^T- 


NO- ATP 


in  SM  coordinates 

^ 2 - 9 

in  m/csec  @ 2 


sign  (Z„-Z) 


PL3j^  • sign  (DZDOTj^) 


in  m/csec  @ 2 


Throttle  command: 

a™  in  SM  coordinates 

/ 2 ^ „-9 

in  m/csec  2 

where : 

PLO^.  = in  SM  coords 
in  m /csec^ 


ATPp  = Srpp  on  m/csec 
@ 2'^ 

ZAXISIy  = in  SM  coords 


t 

Next  Sheet 


2 factor  is  for  scaling 
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DOCUMENT  NO. 

PC- 3950 


SHEET  270F  6,? 


From  Preceding  Sheet 


Compute 


-WDP  ■ -Y  ^TP  -Z^ 


PLO^  — Unit  (ATYj^-  LAXIS^  + ATPj^-  ZAXISl^) 


in  SM  coords 
where : 

ATYp=a^y@2-9 

LAXIS,,  = u in  SM  coords  @ 2 
V -y  _q 

ATPj^  = a^p  @ 2 ^ 

ZAXISly  = in  SM  coords  @2^ 


! 


Clear  " 
ROTFLAG 


Do  not  force  vehicle  rotation  in 
preferred  direction 


! 

t 


Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

PI 2- A scent  Guidance 

DRAWN  £ 

PRGMR 

LUMINARY  ID 

DOCUMENT  NO. 

FC-  3950 

ANALST 

DKMR 

u333S9[7!'!GBIRm 

HSiiS 
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From  Preceding  Sheet 


-WDP 


= - Unit  (R) 


UNWC/2^^—  - UNIT/R/ 


V 


Window- pointing  vector 


— WDAP  coordinates  @2^ 


Next  Sheet 
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REV  ISHEH  30  OF  63  1 

From  Preceding  Sheet 


::piptimEj^  ^ Txo 


t < t 


ASCTERM 
Sh.  33 


ROTFLAG 


Vehicle  rotation  to  be  forced  in  preferred 
direction? 

1 

No  I 


ILRXFLA 


Sh.  32 


IGICHEI 


,^\unit(Arp)-  Uytd  > cos  (0.)  ? 
(UNFC/2)y^^''  -XB-  1 


•XNBPIP^ 
> COSTHET  1 


Ur  • > cos  ( 0p)  ? 


UNIT/R/„  • XNBPIP 
\ > COSTHET2^ 


KEEPVRl 
Sh.  33  ^ 


Next  Sheet 
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PI 2-A scent  Guidance 


DOCUMENT  NO. 


EUMINARY  ID  FC-3950 


SHEET  310E63 


From  Preceding  Sheet 


Don't  force  vehicle  rotation  in 
preferred  direction 


Allow  X-axis  override 


Input: 


^ Output: 

riFlNBCDUW  - 2 

Provide 
Steering 

Interface 
with  DAP 
FC-3960 


UNFC/2^  = Upjjp  = Commanded  thrust  . 

direction  in  SM  coords  @2^ 

UNWC/2^  = y^p  in  SM  coordinates  @ 2^ 

DELVy  = AVp  = AY_  sensed  in  last  2- sec. 

period,  in  SM  coords 

UNFV/2y  = H.pY  = previous  measured  thrust 

direction  in  SM  coords  @2^ 

CDUXD,CDUYD,CDUZD=DAP  desired  IMU  gimbal 
angles  in  revs  @2~f 

UNFV/2^  = — FV  ~ updated  measured  thrust 

direction  in  SM  coords  @2^ 

OMEGAPD,  OMEGAQD,  OMEGARD 

= desired  attitude  rates  in 
revs / sec  @2-3 

DELCDUX,  DELCDUY,  DELCDUZ  = 6 CPU 


t 

Next  Sheet 


= desired  attitude  change  per 

DAP  cycle,  in  revs  @ 2 ^ 

DELPEROR  (=0  ),  DELQEROR  (=<!>). 

X y 

DELREROR  - desired  lag  angles  in 

revs  @ 2 ^ 
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APOLLO  GUIDANCE  AND  NAVIGATION 

P 12-Ascent  Guidance 

DRAWN  € 

TrT\ 

PRGMR  A 

IHIIIII 

DOCUMENT  NO. 

FC-3950 

ANALST  '' 

DOCMR 

BSttkAiJiiJMi 

WStit 

From  Preceding  Sheet 


_ _ t 

(''asctermi  + Tt 


Main  (APS)  engine  being  used? 


Current  guidance  displays  allowed? 


To  change  a FINDVAC  job 
to  a NOVAC  job 


via  BANKCALL 


/godspr  N 

1 Display  j 
Vv06  N6  3y 

} 

f 

FERM^ 

i 

1 

1 

r ' 

1 

1 

[ , 

\ENDC 

)fjob7 

Display  noun  63: 

Rl:  xxxx.x  ft.  /sec  V (ABVELp) 

R2:  xxxx.x  ft.  /sec  H (HDOTDISPj^) 
R3:  xxxxx.  ft.  H (HCALClj^) 
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APOLLO  GUIDANCE  AND  NAVIGATION 

P12-Ascent  Guidance 

DRAWN  f.. 

PRGMR  n1  \ — 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3950 

ANALST  ^ 

DOCMR 

WESfR 

REV  ISHEH  340F  63  | 

MIT  INSTRUMENTATION  LAB 
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APOLLO  GUIDANCE  AND  NAVIGATION 

P12-Ascent  Guidance 

DRAWN  ^ ynctli- 

PRGMR  / ] 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3950 

ANALST 

DXMR 

APPR'D-ftl^-l-lCvJTTA 

/•Jo/X) 

REV  lSHEET3R0f63 

From  Preceding  Sheet 
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P12-Ascent  Guidance 

DRAWN  € . kiiCtGu 

1 

DOCUMENT  NO. 

LUMINARY  ID  FC-3950 

ANALST  '' 

DOCMR 

■■■ 

APPR'D-^VNNN 

REV  ISHECT  370F  63 

^NGOFF  \ j Set  up  by  ENGOFF  (Sh.  36  ) for  computed 

cut-off  time 

via  IBNKCALL 


ENGINEOF2 

Turn  off 
APS 
engine 

.FC-3840  / 


CUTOFF 

FIND  VAC 
job 
with 

priority  17 
Sh.  39 


' Group  4 

Set  up  restarts 
to  schedule  CUTOFF 
as  a FIND  VAC 
job  with  priority 
17. 


\taskover  / 
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P12-Ascent  Guidance 


DOCUMENT  NO. 

LUMINARY  ID  FC-3950 


REV  SHEn38  Of  63 


Recycle 


G 


CUTOFF  ! Termination  of  ascent  guidance 


Set 

FLRCS 


Not  using  APS  engine 


/~goflas~h\ 


Via  BANKCALL 


I Display 
“I  flashing 
\ V16N63 


Terminate 


/ 


Proceed 


Monitor  of  noun  63: 

R 1 ; xxxx. X 

Via  R2:  xxxx.  x 

POSTJUMP 

R3:  xxxxx. 


ft.  / sec:  V 
(ABVELj^) 

ft.  /sec:  H 
(HDOTDISP^) 

ff  • 'H'  ^ 

(HCALCIq) 


^ 

TERMASC 


» N. 

( CUTOFFlj 




Inhibit 

interrupts 


Via  IBNKCALL 


/^ATTERO^ 
'^Zero  attitude 
errors 
(for  DAP) 

FC-344Q_ 


/ 


T 


Next  Sheet 
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DRAWN-/.  u 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3950 

ANALST 

DOCMR 

■■1 

REV  ISHEET  3 9 0f63  1 

From  Preceding  Sheet 


Monitor  of  noun  85; 

Rl:  xxxx.  X ft /sec 

R2;  xxxx.  X ft/sec 

R3:  xxxx.  X ft/sec 


I 


Components  of 

V in  body  (NB) 
~ o 

coordinates 

(VGBODY^) 


using  hand  controls 
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DOCUMENT  NO. 
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Ianalst 

■■■ 

REV  ISHECT  400F  63  1 

From  Preceding  Sheet 
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PRGMR 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3950 

ANALST 

OXMR 

APPR'O  CmK'AdCc) 

oj-u'itX: 

REV  (SHEET  410F63  | 

RP-TO-R 


Convei’t 
vector  from 
planetary  to 
reference 
coordinates 
FC-5T^0  / 

1 — 


Input:  PLO..  = vector  in  planet  -fixed  coordinates 
V 28 

PL6j^  = corresponding  time  in  cscc  @ 2 

MPAC  1 0-indicates  moon-fixed  coordinates 

Output:  MPAC^  = given  vector  in  reference 
coordinates  (same  scaling) 


V 

Next  Sheet 
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DRAWN  .y-  ^ 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3950 

ANALST  ^ 

DOCMR 

HHi 

From  Preceding  Sheet 

Compute  uJjyj  = rotational  velocity  of  the  moon 
in  SM  coordinates  in 
- 1 7 

rad/ csec  @2 


WM 


-MOONRATEj^  x(REFSMMATj^  x MPAC^) 


Where: 

MPAC 


REFSMMAT 


M 


MOONRATE 


D 


rotational 
axis  in 
reference 
coords  .(a  2 

= reference-SM 
coordinate 
transformation 

matrix  @2^ 

= moon  rotation 
rate 

in  rad/ csec 


1 


(a  2 


-19 


/ LAND/jj6 2^  . I RLSy  | 


Set  landing  site  radius  rj^g 
(in  m @2^^) 

Where:  RLSy  = landing  site 

position  vector 

^ ‘>7 

in  m(®  2“ 

3 

2 factor  is  for  scaling 


Return  via 
,TEMPR60/ 
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LUMINARY  ID 

DOCUMENT  NO. 

FC  3950 

ANALST 

^■1 

BBSSSS 

REV  [SHEET  43  OF  63  I 

P12INIT 


PI 2 Initialization  Subroutine 


l/DV3j^  1/DV)  Aj^ 

l/DV2JJ.^-(l/DV)  Aj3 
1/DV1„<-(1/DV)  A„ 


Initialize  thrust  filter  parameters 

•”  ’'-A 

n 

(in  csec/m  @ 2 ) 

Where  Av^=  A 'f  in  first 

2 seconds  of  ascent 

Initialize  to  APS  values: 


TBUP^ 


.(AT)Aq 
• (TBUP)A 

nil  A 


ATDECAYj^ 


- 2‘  . APSVEXo 


= thrust  acceleration  in 
m/ csec^  (S  2 ^ 

T-  mass:  mass  flow  rate  ratio 
1 7 

in  csec  (S  2 


At  . rr  = tail- off  time 
t ail -off 


in  csec  (§  2 


V = exhaust  velocity  in 
® m/csec  @ 2^ 


FLAP 

set? 


Is  this  an  APS  - continued  abort? 

Yes:  skip  landing -site  position 
I initialization 


Next  Sheet 


Return 
■ via 
QPRET. 


From  Preceding  Sheet 


COMMINIT 


Initialize  target  parameters 


Rp  = rj^g  + 60,  000  Ft. 


RCO 


D’ 


/LAND/jj  + HINJECT. 


D 


Rp,  = desired  injection  radius  in 
24 

m@2^^ 

Where  HINJECT„  = 18,  288m 

(,  S;  60,  000  Ft.  ) 


@ 2 


24 


Time  when  X-axis  override  is  allowed 

^ o28 

in  csec  @ 2 

Yp.  - desired  injection  cross-range 

24 

distance  in  m @ 2 

Yj^  - desired  cross-range  velocity 
in  m/csec  @ 2^ 


Compute  Q - axis  of  target 
coordinate  system  ( in  SM  . 

coords)  @2^ 


Q = Unit  ( -c  X -^c  ) 

QAXIS.^< — Unit  [ REFSMMATj^  x (VRECTCSM.^  x RRECTCSM.^  )] 

^ 

] 

C 

V 


Return 
via 
QPRET , 


Where: 

VRECTCSM 

= V = CSM 
“c 

velocity  in 
reference 
coordinates 


= CSM  position 
in  reference 
coordinates 


REFSMMATj^ 

= reference  - SM 
coordinate 
transformation 
matrix 
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KPARM^  = 2 K in  m/rev 
@ 2^^ 


D 


RPj^  = Rp  in  m @ 2 


24 


Make  sure  R^  ^ R^mIN 


Next  Sheet 
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From  Preceding  Sheet 


~\ 


r M __ 

D ^ (J  + K'^Rp 


y^MUM(-37)p  . PL  Op" 

ZDOTD^y  (PLOp  + RPp)  RPp 


• 7 

Compute  Zp  in  m/csec  @ 2 
Where: 

MUM(-37)  = A'in 

m^/csec2  @ 2^”^ 

PLOp  =2(J  + K 0 ) - Rp 
in  m ^ 224 

94 

RPp  = Rp  in  m (rt 


Return  via 
, ASCSAVE , 
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DOCUMENT  NO. 

LUMINARY  ID 

PC  3950 

REV 

HE!!!nEltKZ£l 

THETCOMP 


Compute  LM-CSM  phase  angle  0 


/ 

^ 

Form  U . (u  X u \ 

PL  SOjj^WMy  . [Unit  (R(CSM)^)  X Unit  (Ry)] 

Intermediate  result 
Where  : 

= -M 

R(CSM)^  = R^, 
Ry  R 

(all  in  SM  coords) 


(J 


RPCOMPl 


7 


PCONSp 

— 0 

1 PRATEp 

^ — 0 

U,.  — 

Entry  to  compute  Rp  = R + 


A in  m/csec@  2 

O 

B in  m/ csec  @ 2" 


Rt 


go 


(7 


Bit 


RPCOMPJj 


^ /R/MAGp  + RDOT^  TGO 


D 


"D 


Entry  for  long  computation  of  Rp 

Compute  new  Rp  ( perigee  at  cutoff) 

^ _24 
in  m (a  2 


. B ^ 3 

Sr  'go 


+ 2‘ 


PCONS^,  ^ THIRDp 

I-  2 2 


PRATE 


D- 


TGO 

D 


'tg62" 

D 


TBUP 


D 


Where:  _ 

/R/MAGp  = R in  m (5  2^^ 

RDOTp  = R in  m/csec  @2^ 

TGO„  = t in  csec  @2^'^ 

D go  ^ n 

PCONSp  = A in  m/csec  fe'  2 

THIRDp  = . 333333333  @ 2° 

PRATE^  = B in  m/csec^  @2’^ 

TBUP^  = r in  csec  & 2^'^ 

2 

2 factor  is  for  scaling 


V 


Return 

via 

QPRET 
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wtipm 

REV  ISHEET  490F  63  1 

LOGSUB^  Compute  natural  logarithm  of  quantity 

(2‘^q)  in  MPAC^  @ 2° 


MPACj^  — 1 - 2 ‘ MPACp 


MPAC  +6< 


Normalize  MPACj^  (to  q)  and  subtract 


from  1 


Save  normalization  coimt  @ 2 


14 


Input:  MPACj^  = aC  @ 2 

Coefficients  of  polynomial: 


POLY 


Compute 

desired 

polynomial 

FC-3070 


-0 


^4=  - 

S = - 
^6  = 
^7  " ■ 


0000000060 
0312514377 
0155686771 
0112502068 
0018545108 
0286607906 
, 0385598563 
, 0419361902 


Oupput:  MPACj^  - Cq  + Cj  3C  + Cg  ^ + Cg'X  ^ 

+ c^x^  + CgX  ^ + Cgpc®  +c^x'^ 
here  - In  ( 1 -X  ) = ln(q)  @ 2*^ 


MPAC  +2  < — 0 


Zero  low-order  third  of  MPACrp  to  be 
used  later 


BUF  +lp< MPACp 


Save  In  (q)  (a  2 


0 


nI' 

Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

P12-Ascent  Guidance 

0RAWN>.  C/Lt  ( Z-,,-.- 

PRGMR  / ^ 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3950 

ANALST 

OOCMR 

ESZ&lSIniMiRH 

REV  ISHEET  50  0f63  | 
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SUBROUTINES  CALLED  'WTIICH  ARE  FLOWED  ON  OTHER  FLOWCHARTS 


Subroutine 

Flowchart 

Description 

Where 

Called 

BURNBABY 

FC-3840 

Master  ignition  routine 

Sh.  1 1 ! 

CLRADMOD 

FC-3600 

Initialize  RADMODES  flags  for  R29 

Sh.  2 1 

ENGINOF2 

FC-3840 

Turn  off  APS  engine 

Sh.  38 

FINDCDUW-2 

FC-3960 

Provide  steering  interface  with  DAP 

Sh. 33  1 

LEMPREC 

FC-3350 

Integrate  LM  state  vector  to  desired 
time 

Sh.  5 j 

LOAD  TIME 

FC-3150 

Load  present  time 

Sh. 36.  42l 

MUNGRAV 

FC-3850 

Compute  gravity  at  given  position 

Sh.  6 

PFLITEDB 

FC-3440 

Set  deadband  for  powdered  flight 
(forDAP) 

Sh.  11 

1 

POLY 

FC-3070 

Compute  desired  polynomial 

Sh. 50  ! 

RESTORDB 

FC-3440 

Restore  astronaut's  chosen  DAP 

Sh.  41 

RP-TO-R 

FC-3340 

Convert  vector  from  planetary  to 
reference  coordinates 

Sh. 42  1 

i 

R02BOTH 

FC-3220 

Check  that  IMU  is  on  and  aligned 

Sh.  2 

SETMINDB 

FC-3440 

Set  DAP  deadband  to  minimum 

Sh.  40 

SHORTMP  1 

FC-3070 

Perform  multiplication 

Sh.  5 1 

ISTOPRATE  1 

FC-3440 

Zero  rate  commands  (for  DAP) 

Sh.  35 

TP AGREE 

FC-3070 

Force  sign  agreement  in  MPAC™, 

Sh.  36 

VACRLEAS 

FC-3030 

Release  VAC  area 

Sh. 34  i 

ZATTEROR 

FC-3430 

Zero  attitude  errors  (for  DAP) 

Sh.39 
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DOCUMENT  NO. 
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FLAGS 


Name 

Meaning  When  Set 

7 - - — t 

Meaning  When  Clear 

Where 

Set 

Where 

Cleared 

Where 

Tested 

ACC4-2FL 
/bit  1 1 of  \ 

VFLGWRDIS/ 

Four -jet  translation 
requested 

Two -jet  translation 
requested 

Sh.  3 

FLAP 

/bit  8 of  \ 

\FLAGWRD9; 

APS  - continued 
abort 

Not  an 

APS-continued 

abort 

Sh.  44 

i 

FLPC 

/bit  12  of  \ 

'FLAGWRDsj 

No  position  control 

Position  control 

Sh.  21 

1 

i 

Sh. 21  1 

FLPI 

/bit  1 1 of  \ 

\FLAGWRD9/ 

Pre- ignition  phase 
of  ascent  guidance 

Regular 
(post-ignition) 
ascent  guidance 

Sh.  3 

Sh.  11 

Sh.  28 

FLRCS 

/bit  10  of  \ 

^FLAGWRDOj 

RCS  injection- 

APS  injection 

jmniiiiii 

Sh.  12. 
17,  33. 
34 

FLUNDISP 
/bit  10  of  \ 

1 FLAGWRD8/ 

Current  guidance 
displays  inhibited 

Current  guidance 
displays  allowed 

Sh.  34 

FLVR 

/bit  14  of  \ 

iFLAGWRDOy 

Vertical  rise 

Non-vertical  rise 

Sh.  3 

Sh.  30 

Sh.  28 

IDLEFLAG 
/bit  7 of  \ 

iFLAGWRDTj 

No  A V Monitor 

i 

Connect  A v Monitor 

Sh.  19 

LETABORT 
/bit  9 of  v 

\FLAGWRD9/ 

Abort  programs  ‘ 

allowed  i 

1 

Abort  programs 
inhibited 

MUNFLAG 
/bit  8 of  \ 

^FLAGWRD6/ 

Servicer  will  call  1 

MUNRVG 

Servicer  will  call 
CALCRVG 

Sh.  3 

■ 

P7071FLG 
/bit  13  of  \ 

\ FLGWRD9/ 



P70  or  P71is  usingj 
ascent  guidance 

i 

PI 2 is  using  ascent 
guidance 

Sh.  16, 
24.  32 
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LUMINARY  IC 

FC-3950 
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FLAGS  (CONTINUED) 


Name 

Meaning  When  Set 

Where 

Meaning  When  Clear  | Set 

Where 

Cleared 

! Where 
j Called 

RENDVZFLG 
/bit  7 of  \ 

\ FLAGWRD  0) 

P20  running 

! 

P20  not  running 

Sh.  3 

j 

i 

1 

RENDWFLG 
/bit  1 of 

1 FLAGWRD  5/ 

W- matrix  valid  for 

rendezvous 

navigation 

W- matrix  invalid  for 

rendezvous 

navigation 

Sh.  12 

1 ....  _ ... 

ROTFLAG 

P70,  P71  will  force 

Do  not  force  vehicle. 

Sh.  29, 

Sh.  3’^o7 

/bit  6 of  V 

\ FLAGWRD9; 

vehicle  rotation  in 
preperred  direction 

rotation  in  preferred 
direction 

1 

j 

1 

32 

31 

RIOFLAG 
/bit  2 of  V 

Iflagwrdo/ 

RIO  outputs  only 
altitude  , altitude 
rate  data 

R1  Oalso  outputs  i 

cross-range  data  j 

1 

1 

Sh.  3 1 

i 

1 

SURFFLAG 
/bit  8 of  \ 

\ FLAGWRDSj 

LM  on  lunar  surface 

LM  not  on  lunar  j 
surface  j 

1 

1 

h 

i 

Sh.  12 

XOVINFLG 
/bit  9 of  \ 

_,AFLGWRpi3j^ 

X-axis  override 
inhibited 

X-axis  override  1 
allowed  | 

sh.  2i 

Sh.32 

DISPLAYS 


— — r— 

Verb-  i Tj'pe  of 
Noun  1 Display 

Description  of  Registers 

Where 

Called 

1 

V0  6 N33  j Flashing 

i 

j 

i 

R1 

R2 

R3 

OOxxx.  hrs.  I time  of 
OOOxx.  min.  > ignition 
Oxx.xx  sec.J  (TIGj^) 

Sh.  3 

V06N76 

Flashing 

R1 

R2 

R3 

xxxx.  X ft.  /sec.  Zq 

xxxx.  X ft./sec  Rq 

xxxx.  X nm.  CR 

(ZDOTDj^) 

(RDOTDj^) 

(XRANGEj^) 

Sh.  7 

V06N63 

Normal 

R1 

R2 

R3 

xxxx.  X ft.  / sec.  V 
xxxx.  X ft. /sec.  H 

xxxxx.  ft.  H 

(ABVELj^) 

(HDOTDISPj^) 

(HCALClp) 

Sh.  34 

V16N63 

Flashing 

Monitor 

Registers  same  as  V06N63  display  above 

Sh.  39 

V16N85 

Flashing 

Monitor 

R1 

R2 

R3 

xxxx.  X ft. /sec.  1 „ . , , , 

xxxx.  X ft.  /sec.  > If' 

xxxx.  X ft. /sec.J  (VGBODY^) 

Sh.  40 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

P12-Ascent  Guidance 

DRAWN  ^ 

PRGMR  / J 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3950 

ANALST 

OOCMR 

APPR'tF-f'PA^ 
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AGC 

Tag 

GSOP 

Symbol 

Meaning 

ABDVCONVj^ 

Av 

Magnitude  of  velocity  - 
change  increment 

Magnitude  of  velocity, 
for  noun  63  display 

Thrust  acceleration 


Z-axis  component  of 
required  thrust  acceleration 


AGC  AGC 
Units  Scalin] 

— h"  ? 

m/ csec  I 2 
i 


m/ csec  I 

( __ 

m/csec^  2-9 

I 


./  2'  2-9 

m/csec  I 


ERASABLE  LOCATIONS  USED  (CONTINUED) 


DELV^ 


DRDOTjj 


DVCNTR 

DVTHRUSH 


Commanded  lag  angle  for 
outer  IMU  gimbal  angle 
(for  DAP) 

j degrees 

1 

Commanded  lag  angle  for 
inner  IMU  gimbal  angle 
(for  DAP) 

degrees 

Commanded  lag  angle  for 
middle  IMU  gimbal  angle 
(for  DAP) 

degrees 

Change  in  velocity  sensed 
during  last  2 -second  period, 
in  SM  coords 

m/ sec 

Counter  indicating 

1 + number  of  cycles 
before  signaling  engine 
failure 


Minimum  acceptable  m/sec 

2-second  velocity  change 
due  to  thrusting  I 


Difference  between  desired  ! m/sec 
and  actual  cross- range  j 


revs  2 


revs  2' 


m/ csec 


i/ csec 


1 

DZDOTj^ 

Zd-  ^ 

Difference  between  desired 
and  actual  Z- component 
velocities 

m/ sec 

j 

i m/csec 

GDTl/2.y. 

(l/2)gAt 

Half  the  change  in  velocity  i 
due  to  gravitational 
acceleration  over 

At  = 2 seconds 

m/sec 

m/ csec 

j 

MIT  INSTRUMENTATION  LAB 
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ERASABLE  LOCATIONS  USED  (CONTINUED) 


1 

i AGC 

Tag 

GSOP 

Symbol 

Meaning 

Engine erin 
Units 

[ 

g AGC 
Units 

AGC 

Scaling 

'GEFFt-, 
i U 

®eff 

Effective  gravitational 
acceleration 

m/sec 

m/csec 

- - H 

!HCALC1„ 

i 

H 

Altitude,  for  noun  63 
display 

m 

m 

;HDOTDISPj^ 

i 

H 

Altitude  rate,  for  noun 

63  display 

m/  sec 

m/ csec 

2^ 

r 

jjPARMjj 

2J 

Parameter  in  computation 
of  R 

a 

m 

m 

2*^4 

1 1 

iKPARM^ 

2K 

Parameter  in  computation 

of  R, 
a 

m/deg 

m/rev 

2^4 

LAXISy 

u 

Y-axis  of  local  vertical 
coordinate  system,  in  SM 

2^ 

OMEGAPD 

DXV 

— 

deg/ sec 

revs/ sec 

OMEGAQD 

^ DYV 

Y- component  of 
commanded  attitude  rate 

deg/ sec 

revs /sec 

2-=* 

OMEGARD 

‘^DZV 

Z-  component  of 
commanded  attitude  rate 

deg/ sec 

revs/ sec 

■ 

PCONSj^ 

A 

First  attitude  component 
in  required  acceleration 
computation 

m/ sec 

m/ csec 

2^ 

PIPTIMEj^ 

t 

Time  of  last  accelerometef 
reading 

sec. 

csec. 

228 

PITCH 

D 

r 

FDAI  pitch  angle  j 

degrees 

revs 

PRATE^ 

D 

B 

First  rate  component  in  | 

required  acceleration 
computation 

/ 2 ! 

m/sec 

2 

m/ csec 

2-« 

QAXIS^ 

9. 

Q-axis  of  target  coordinate 
system  in  SM  coordinates 

i 

1 

2^ 

»v 

r 

Position  vector  in  SM 
coordinates 

m 

m 

224 

! 

RATT„ 

[ 

r (t^) 

Position  at  time 
integrated  to,  in  reference 
coordinates 

m 

I 

_ j. 

m 

229 
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ERASABLE  LOCATIONS  USED  (CONTINUED) 


Engineer. 

ing 

Units 


AGC 

r— 

GSOP 

Tag 

Symbol 

Meaning 

RCOd 

Rd 

Desired  injection 
radius 

RDOTj^ 

• 

R 

Radial  velocity 

RDOTDj^ 

Rd. 

Desired  radial 
velocity 

refsmmat^ 

[refsmmat] 

Transformation 
matrix  between 
reference  and  SM 
coordinate  systems 

RLSy 

r 

LS 

Landing  site  position 
vector 

AGC 

Units 


m/ sec 


m / sec 


RRECTCSM, 


R(CSM)^, 


TBUPjq 


TDECl^ 


TRKMKCNT 

TTOp 


TTOGOjj 

TXOp 


UNFC/2^ 


Tail -off 


Estimated  perigee  at  m 
cutoff  time 


CSM  position  vector  m 
in  reference 
coordinates 

CSM  position  vector  in  m 
SM  coordinates 


Mass  to  mass  flow- 
rate ratio 


Time  to  integrate  to  sec 


Remaining  burn  time  se 
Time  of  ignition 

Radar  mark  counter 

Tail -off  time 


Time  from  engine 
cutoff 

Time  when  X-axis 
override  is  allowed 


Throttle  command 
(thrust  direction)  in 
SM  coordinates 
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REV 
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ERASABLE  LOCATIONS  USED  ( CONTINUED) 


UNFV/2 


UNIT/R/„  u 


UNWC/2,,  u 


Measured  thrust  direction  in  SM  coordinates 


Unit  vector  in  radial 
direction  in  SM 
coordinates 


Window- pointing  vector 
in  SM  coordinates 


Velocity  vector  in  SM 
coordinates 


Velocity  vector  at  time 
integrated  to,  in  reference 
coordinates 


Exhaust  velocity 


VGVECT, 


VRECTCSM„  V 


Velocity-to-be -gained 
in  body  (NB)  coordinates 


Velocity-to-be-gained  in  m/sec 
SM  coordinates 


- ^*IG^! 


WHICH 


XNBPIP, 


XNBPIP, 


SMNB  i 


v\  axBi 


YNBPIP^  H’^YB 


ZNBPIP^/  u^g  ! 


Velocity  at  ignition  in 
SM  coordinates 


Variable  indicating 
guidance  table  to  be  used 
by  master  ignition  routine 


Moon  rotational  velocity  in  rad/sec 
SM  coordinates 

Transformation  matrix 
between  SM  and  NB 
coordinate  systems 


m/ sec 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


APOUO  GUIDANCE  AND  NAVIGATION 


P12-Ascent  Guidance 


DOCUMENT  NO. 
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ERASABLE  LOCATIONS  USED  (CONTINUED) 


AGC 

! 

i 

GSOP  i 

Tag 

Symbol  j Meaning 

EDAI  yaw  angle 


j 

Yp  j Desired  cross-range 
position 


j Second  attitude  component  m/sec 
[ in  required  acceleration 
j computation 

-j 

i Cross- range  velocity  m/sec 


m/ sec 


ZAXISL 


D j Second  rate  component  m/sec 
I in  required  acceleration 
computation 


Z- component  of  local 
vertical  coordinate  system 
in  SM  coordinates 


Down-range  velocity 


m/ sec 


m/csec 


CONSTANTS  (CONTINUED 


Minimum  apogee  radius  R, 


FINDCDUW: 


Guidance  - DAP  Interface 


INITCDUW 

Sh. 

2 

FINDCDUW  -2 

Sh. 

3 

FINDCDUW 

Sh. 

3 

FLTRSUB 

Sh. 

23 

LIMITSUB 

Sh. 

25 

UNWCTEST 

Sh. 

26 

NB2CDUSP 

Sh. 

27 

ARCTRGSP 

Sh. 

31 

SPARCSIN  - 1 

Sh. 

35 

SPARCSIN 

Sh. 

35 

0NEST02S 

Sh. 

36 

DVBYCOSM 

Sh. 

37 
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DRAWN  ... ; 

PRGMR  '' 

/ / 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3960 

ANALST 

DOCMR 

APPR-D-t^k!L.l,.IVY\ 

/o/ a 0/1,1 

INITCDU' 


Initialize  for  first  pass 
inputs  to  FINDCDUW  (Sh.  3) 


Set 

to  initial  estimate 

of  thrust  vector  direc- 
tion in  SM  coordinates 

@ 2I 


Set 

u^Dp  to  initial  desired 


window  direction  in 
SM  coordinates  @ 2 


Next  Sheet 


From  Preceding  Sheet 


Next  Sheet 
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ORAWNTI^ 

PRGM^  ' ^ 

BH 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3960 

ANALST 

DOCMR 

From  Preceding  Sheet 


Bit  10  7 LGC  in  control  of  LM  ? 
I of  Ch.  30/ 

\ clear  ? / 


git  14  / Spacecraft  Mode  Control  switch 
\ofCh.  3/  in  AUTO  position? 

\ clear  ?/ 


FLPAUTNO 


Indicate  autopilot 
in  control 


CDUV  = CDUD 


CDUSPOTX 

CDUSPOTY 

CDUSPOTZ 


CDUXD 

CDUYD 

CDUZD 


Set  vehicle  coordinate 
angles  instead  to  desired 
IMU  gimbal  angles  (from 
DAP)  in  revs  @ 2”  1 


PAUTNO 


(Switch  to  Interpretive  languageN 
allows  interrupts  ' 


/ NO RM UN ITA  Input : MPAC^=  vector 
Perform  unit  \ 
operation  / 

\ FC-3150  MPACy  - corre 


'Output:  MPACy  - corresponding 
unit  vector  @2^ 


Next  Sheet 
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^XVDP  — ^-FDP^ 

UNX/2  < MPAC 

V V 

..  ...  % 

t 

MPAC  < UNWC/2 

v'  V 

2k 

t 

Be  sure  to  have  unit 
vector  for  commanded 
thrust  direction  (in 
SM  coordinates) 


Load  u^pp 


JORMUNITN 

Perform 
((jinit  operation 

FC-3150 


Input:  MPAC^  = vector 


Output  MPAC  - corresponding 
unit  vector  @ 


2l 


''qUICTRIgX  Input:  CDUSPOTX'\ 

^ cduspotyIsT^'^^^ 

CDUSPOTZ J II 


Compute 
trig  functions 
of  3 angles  , 

° /Output:  COSCDUX,  SINCDUX  [ cosines^  sines  of 
FC-3.330  / COSCDUY,  SINCDUY  f given  angles  @ 2^ 

COSCDUZ,  SINCDUZj 


iZVDP  = Unit  (-^WUP) 


UNZ/2^ 


MPAC 


Be  sure  to  have  unit  vector  for 
desired  window  direction  (in 
SM  coordinates) 


Overflow  from  unit  operations  ? 
Overflow\  (input  vectors  zero) 

Yes 


NOATTCNT 
\ Sh.  22  / 
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'^FYV  • 129(  ( UpYV*"  ^*^FYV^’ 

where  A u pYV  = < <gain(^pYV  ' 
UNFVY/2*— A 


Store  ^ jTYV 


-UNFVZ/2 
■MPAC  +5 


“FZV  ® 


VZV  @2^ 


/ FLTRSU^ 

/ Apply  \ 

Uhrust  direction 
\ filter  / 
\ Sh.  23  / 


Input:  A,  L @2^ 


Output: 

A< — Limit  . 129  [^Limit  . 007 x 
(gain  (L-A)  + A)] 


• ^29)  (ufzv''’Auf2;v).  FZV 

where  Au . 007)  (gaM^Tp^y  ■‘^FZV^)  ® 


UNFVZ/2- 
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LCorrect  X-axis  for  thrust  offset 


-XVDP 
in  SM 
coords 


ixVDP_^^“^J,-XVOT  ‘^YV^YVDP  "^FZV^ZVDP  _ _ cowds 

UN  X/2  - Unit  (UNX/2  - 2^-  UNFVY/2„-  PLX  +2^-  UNFVZ/2„-  UNZ/2  ® 

V V U V ^ ^ 9.1  far- - 


2^  fac  ■ 
tors  are 
for  scaling 


Compute  commanded  vehicle  axes 
(final  iteration) 


-YVDP  ■ -XVDP  X -ZVDP  H 


YVDP 


in  SM  coordinates  @ 2 


UNY/2^  •-  2 . (UNX/2^  X LNZ/2^)  where  2^  factor  is  for  scaling 


'^ZVDP  ” YVDP  ^ — XDP^  —ZVDP  coordinates  @ 2 


UNZ/2v  - -2  • (UNY/2v  x UNX/2v) 


where  2^  factor  is  for  scaling 
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i 


B2CDUSP\  Input: 


Compute 
required  IMU 
gimbal  angles/ 


Sh.  27 


Output: 


UNX/2v  (=  PLOv)=  IIxVDP 
UNY/2v  (=  PL6„)=iI  yVDP 
UNZ/2^(=PL12^)=n2^j3p 
all  in  SM  coords  @ 2l 

MPAC  = CDUCX 
MPAC  +1  = CDUCY 
MPAC  +2  = CDUCZ 

all  in  revs  @ 2*  I 
(2's  complement) 


L - MPAC  -t-2 
A - ,1944444444  rev 


LIMITS  UB 
'Limit  value 
in  L to  mag- 
litude  in  A 
Sh.  25 


i 

i 

A MPAC  4-2 

f 

required  middle  gimbal 
angle  in  revs  @ 2"  1 

maximum  allowable 
magnitude  = 70°  in  revs  @ 
2"  ^ 

(necessary  to  avoid  gimbal 
lock) 


Input:  L = value  to  be  limited 

A = limit  value  (with  same 
scaling) 

Output:  A = input  value  limited  in 
magnitude  to  input 
limit 


Store  limited  middle  gimbal 
in  revs  @ 2“  1 
and  simultaneously  save 
original  value  in  A 
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Was  required  middle  gimbal  angle  too 
. • large  ? 

Yes-1 


MGARETV 


Inhibit 

interrupts 


Yes 

s 

t. 

^LARMMGA  ^ 

^ ALARM  X ^ode”^ 

Light  PRCX5  ALARMA 

light;  store  J^pesired 

alarm  code /gimbal  angle 

r FC-3140  y > 70°) 


Initialize  L so  that  FLAGOODW 
will  not  be  cleared  on  first  pass 

Initialize  index  value,  loop 
counter 
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^ lU ^ Compute  change  in  gimbal 

rDELGMBLP)  angles  ACDUU  = CDUC  O CDUD 


TEM2  <-A  Save  index  value 

if  IaCDUUYI  or  IaCDUUZI^  45°  ? 

2 , Yes 

>{1/8  rev)  N — 

at Window-pointing 

^ FLAGOODW<-+0  command  not 
No  good  for  X-axis 


1 

e. 

TEM2  <-A 

CPHlI  TEM2  < — MPAC  ?TEM2 

-DELGMB  I TEM2  *-  -pPAC  fTEM2  © CDUXD  ItEM2] 
L«-  -(MPAC  +TEM2©  CDUXD  ItEM2J 


IMU  gimbal 
angle  CDUC 
and  negative 
difference 
-ACDUU  be- 
tween 

commanded 
and  DAP 
desired  IMU 
gimbal  angle 
in  revs  @ 2"1 


TEM2  - 1 


TEM2  >0 

No 
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Autopilot  inhibited  ? 
Yes 


Engine  on  ? 

ENGONFLG  ^ 


No 


Yes 


- DELGMB  +2 
A-  DAZMAX +NDXCDUW 


.IMITSUB 
Limit  value 
in  L to  value  in 
A 


§ 

i 

-DELGMB  +2<— A 

-ACDUUZ  in  revs 
@ 2^ 

Appropriate  limit 
value  0 ZM  (de- 
pending on  whether 
docked  to  CSM)  in 
revs  @ 2" 1 


Input;  L = value  to  be  limited 

A = limit  value  (with  same 
scaling) 

Output:  A = input  value  limited 

in  magnitude  to  input 
limit 


Store  - ACDUZ  = limited 

value  of  - ACDUUZ 
in  revs  @2-1 
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-ACDUUY*  COS 

(-DELGMB  +1)  • COSCDUZ  (CDUDZ)  in  revs  @ 2° 

(DAY/2  MAX  +.NDXCDUW  Appropriate  limit 
value  Qyj/i  (depending 

on  whether  docked  to 
CSM)  in  revs  @ 2 


Input:  L = value  to  be  limited 

/'LiMITSUB  \ A = limit  value  (same 

Limit  value  \ scaling) 

in  L to  value  im 

'v  A / 

V -f  Output:  A = input  value  limited  in 

\ Sh.  25  / magnitude  to  input 

I limit 


A«— A r COSCDUZ 


Obtain  -ACDUY 
= limited  value  of 
-ACDUUY-'  COS(CDUDZ) 


COS(  CDUDZ) 
in  revs  @ 2" ^ 


► -DELGMB  +1 


Store  -ACDUY  and  sim- 
ultaneously save 
original  -ACDUUY  in 
revs  @ 2"  1 


L --2  • A • SINCDUZ  0-DELGMB 


A - DAXMAX  I NDXCDUW 
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ACDUUX  © - ACDUUY  • SIN 
(CDUDZ)  in  revs  @ 2"1 
(2^  factor  is  for  scaling) 

Appropriate  limit  value  0^jyj 
(depending  on  whether 
docked  to  CSM)  in  revs  @ 

2"1 
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^LIMITSUB 
Limit  value 
in  L to 
value  in  A 

Sh.  25 


Input:  L = value  to  be  limited 

A = limit  value  (same  scaling) 

Output:  A = input  value  (limited  in 
magnitude  to  input 
limit 
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Interrupts  allowed  by  transfer  to 
interpretive  language 


Return  via 
\QCDUWUS 


iry 
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NOATTCNT 


5 


Input: 


ALARM 


Light  PROG 
ALARM  light;  set 
alarm  code 


FC-3140 


^ NOATTCNT  f2  ^ 


Alarm  code  00402 
FINDCDUW  not  controlling 
attitude  because  of  inade- 
quate pointing  vectors 


No  alarm  entry 
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^ / 

PRGMn 

LUMINARY  ID 
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FC-  3!^' 60 

ANALST 

OOCMR 

IFLTRSUB)  Thrust  Direction  Filter 


Save 

Q 

in 

TEM2 


TEM  3 


Save  first  input  @ 2^ 


(Yes) 


/ Test 
NDXCDUW 


Docked  with  CSM  ? 


.1  (L-  A) 


. 2 (L  - A) 


Use  appropriate 
gain  filter  - 
L is  second 
input  @ 2l 


_LJMITSUB\  Input:  L = value  to  be  limited 
Limit  value  \ A = limit  value  (with 

in  L to  \ same  scaling) 

magnitude  in  ^ . . 

A / Output:  A = input  value,  limited 

25  y id  magnitude  to 

' T ' input  limit 
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LIMITS  UB 


sign  (• 


TEMl 


)TEM1 


A4- 


Return 
via  Q 


Return  value 
(originally  L) 

in  A,  limited 
in  magnitude 
to  that  of  TEMl 
(input  in  A). 
Presumably 
TEMl^O,  so 
that  value  is  re- 
turned with  sign 
of  original  L. 


INWCTES: 


q = ^i^ZVDP  • -XVDP^^ 


MPACj^<-  (MPAC^  • UNX/2y)" 


Compute  q @ 2^ 
where  MPAC  = iiZVDP 
V 1 

@ 2^ 

UNX  /2^  ^ iiXVDP 
@ 2^ 

(both  in  SM  coordinates) 


q < cos*^  ( 15°)  ? DOTSWFMX^  =.93302 


MP AC  Yes:  don't  need  to  go  back  for 

scDOTSWFMXd> alternate  choice 

DCML 

\ Sh.  10  / 


FLAGOODW 


+ O Window  not  good 


Return 

via 

QPRET 
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'DVBYCOSr 

Divide 
by 

TEM5 
Sh.  37 


s 

1 

A< TEMl 

i 

€ 

Input:  A =X,  where  PL  JC  (in  this 
case  PL4d=  UNX/2 
4q  = Cg  @ 2I)  is  to 
be  divided 

^Output:  L4 — TEMj^  (here  = cos  y 
@ 2^) 

TEMl  = PLXp)  TEM5 

C2 


(here  = 


cos  z 


@ 2^) 


sin  y = 


-C2 

cos  z 


@ 2‘ 


Perform 
arc -trig 
function 


Sh.  31 


MPAC  +1 


L,  = cos(pngle.)@  2l 

/Output:  A = angle  in  revs  @ 2 ^ 
(2's  complement) 


A 


% J 

Save  angle  CDUCY  in  revs  @ 
2-1 


Set  up  input  to  DVBYCOSM 


, , Input:  A = X,  where  PL^L  (in  this 

/DVBYCOSlvfV  ^ 

Divide  \ case,  PL8j^  = UNY/2d 

by  \ = C3  @ 2I)  is  to  be 

TEM5  / divided 

Output:  L< — TEMl 

TEMl  = PLXj^  TEM5 

(here,  = *^3  cos  x @ 2^) 
cos  z 


Sh.  37 
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/ONest02S\  ^ in.l's  complement 

Convert  \ 

'from  I's  to  2's  \ 

complement  ^ g's  complement  (same  scaling) 

Sh.  36  / 


Get  I's  complement  difference  of  2's  complement  values. 
If  cos  ( input  was  2 4 0,  TEM3  = 0;  angle  computed 
by  SPARCSIN  -1  needs  no  adjustment;  but  if  cos  (•^)  input 
was  TEM3  = 1/2  rev  @ 2"1  and  sine  input  to 
SPARCSIN  -1  had  sign  reversed;  angle  computed  above 
is  sin"  1 (sin(Z-l/2  rev)  =‘^~\  / 2 rev 


A O TEM3 
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ANALST 

DQCMR 

APPR'D 

III  ill 

("use cos  Entered  from  Sh.  32  if J cos  (L.)  1<1  sin^)l 
' 1 ^ i.  e.  if  45°  Z.  I angle  1 Z_  1350 


^ 

t 

A < TEM3 

-cos  (Z.)  = -sin  (Z  +1/4  rev) 

= sin  (-Z  - 1/4  rev) 
= sin  (Z  - 1 /4  rev) 


PARCSIN  -\Input:  A - input  sine  @ 2 


Sh.  3 5 /Output:  A = sin  (input)  ^ 

with  magnitude  90 
in  revs  @ 2"  1 
(Here  A = - 1/4  rev) 


or  Z - 1/4  rev) 


Get  - Z or  Z in  revs  @ 2 


Test  sin  (^  ) 
^0:  had  -Z 


had  \1’EM2/^ 

correct 

Z. 

• ) 

t 

A^  TEM3 

A 1 TEM3 

1 

! 

[ 

1T02&TCQ 

] 

GetZ  in  revs  @ 2'  ^ 
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Divide  by  TEM5 


Input:  A =X  , where 

to  be  divided 
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ADDITIONAL  INFORMATION  ABOUT  NB2CDUSP  (Nav  Base  To  CDU, 
Single  Precision) 


It  may  help  to  understand  this  subroutine  by  working  backwards  through  the  logic. 
The  end  result  desired  is  the  set  of  three  angles  through  which  the  spacecraft  is 
to  be  rotated. 

One  of  these  will  rotate  about  the  ''Y''  axis  in  a manner  somewhat  like  this: 

^SM 


Note  that  the  NB  axes  and  have  already  been  rotated  through 

the  desired  angle,  p . 

To  translate  the  NB  axes  into  stable  member  coordinates,  one  must 
multiply  the  identity  matrix,  which,  of  course,  transforms  SM  axes  to  SM  coordinates, 
by  this  matrix. 


cos  p 
0 

sin  p 


-sin  P 
0 

cos  P 


where  the  rows  are  unit 
vectors,  parallel  to  the 


X 


Ynb  Z^g 


NB’ 

axes,  expressed  in  stable 
member  coordinates. 
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In  the  same  manner,  rotation  about  the  X and  Z axes  will  produce  the 
following  matrices,  in  order: 


"1 

0 

0 ' 

"cos  (T 

sin  o 

0 ■ 

II 

2 

0 

cos  T 

sin  T 

and  [b]  - 

-sin  a 

cos  <y 

0 

.0 

-sin  T 

cos 

0 

0 

1 . 

Multiplication  of  the  identity  matrix,  fl]  by  the  X transformation  matrix  [A] 
by  the  Z and  Y transformation  matrices,  [B]  and  [d]  in  this  fashion: 


fljx  [A]  x[b]x[d]  , yields  this  matrix: 


cos  a cos 


P 


sin  a 


-sin/)  cosr 


-cos  r sincT  cos  P cosr  cosr 
+ sinr  sinP 

cosp  sinr  sina  -sinr  cosr 
+ cos  r sin  p 


cosp  sinr  + 
sinp  cosr  sina 

cosr  COSP  - 
sin  r sin  cr  sin/j 


where  r , f, , auid 
<r  are  the  angles 
of  rotation  about 
the  X,  Y,  and  Z 
axes,  respect- 
ively. 


This  matrix  is  in  the  push  list  when  NB2CDUSP  is  called.  With  the  matrix  elements 
Cq,  C^,  Cg,  and  C.^,  located  in  the  push  list  at  PLOp,  PL2q,  PL4jj,  PL8q,  and 
and  PL14q,  one  can  easily  compute  the  required  angles. 
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Subroutines  Called  Which  Appear  on  Other  Flowcharts 


Subroutine 

Flowchart 

Description 

Where  Ci 

ALARM 

FC-3140 

Light  PROG  ALARM  Light; 
set  alarm  code 

Sh. 

13, 

NORM  UNIT 

FC-3150 

Perform  unit  operation 

Sh. 

5,  6 

QUICKTRIG 

FC-3320 

Compute  trig  functions 
of  3 angles 

Sh. 

6 

STOPRATE 

FC-3440 

Zero  DAP  inputs 

Sh. 

22 

*SMNB* 

FC-3320 

Convert  vector  from  SM 
to  NB  coordinates 

Sh. 

7 

Channel  30 

AGS  has  control  of 

LGC  has  control  of 

bit  10 

spacecraft 

spacecraft 

Channel  31 

Spacecraft  Mode 

Spacecraft  Mode 

bit  14 

Control  switch  not 

Control  switch  in 

in  AUTO  position 

AUTO  position 

Cleared  Tested 
Sh.  5 

Sh.  5 
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REV 


DOCUMENT  NO. 

FC-3960 
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Displays 


Verb- Noun 

Type  of  Display 

Description  of  Registers 

Where  Called 

Alarm 

PROG  ALARM  light  on; 
no  effect  on  Rl,  R2,  R3 

Sh.  13,  22 

Erasable  Locations  Used 


GSOP 


CDUSPOTX 

CDUXV 

Snapshot  of  IMU  outer  gimbal 
angle  (2's  complement) 

CDUSPOTY 

CDUYV 

Snapshot  of  IMU  inner  gimbal 
angle  (2's  complement) 

CDUSPOTZ 

CDUDZ 

Snapshot  of  IMU  middle  gimbal 
(2's  complement) 

CDUX 

CDUX 

Outer  IMU  gimbal  angle 
(2's  complement) 

CDUXD 

CDUXD 

DAP  desired  outer  IMU 
gimbal  angle  (2's  complement 

CDUY 

CDUY 

Inner  IMU  gimbal  angle 
(2's  complement) 

CDUYD 

CDUYD 

DAP  desired  inner  IMU 
gimbal  (2's  complement) 

CDUZ 

CDUZ 

Middle  IMU  gimbal  angle 
(2's  complement 

CDUZD 

CDUDZ 

DAP  desired  middle  gimbal 
angle  (2's  complement) 

COSCDUX 

COS 

(CDUX) 

Cosine  of  CDUSPOTX  (above) 

COSCDUY 

COS 

(CDUY) 

Cosine  of  CDUSPOTY  (above) 

COSCDUZ 

COS 

(CDUZ) 

Cosine  of  CDUSPOTZ  (above) 

CPHI 

CDUXC 

Commanded  IMU  outer  gimbal 
angle  (2's  complement) 

CPHI  fl 

CDUYC 

Commanded  IMU  inner  gimbal 
angle  (2's  complement) 

CPHI +2 

CDUZC 

Commanded  IMU  middle  gimbal 
angle  (2's  complement) 

Engineering  AGC 

Unit  Units  Scalin 


degrees  revs 


degrees  revs 


degrees  revs 


degrees  revs  2~ 1 


degrees  revs  2~^ 
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Erasable  Locations  Used  (Continued) 


GSOP 

Symbol 


Meanin 


Engineering 

Units 


AGC  AGC 
Units  Scalin 


ELCDUX  6CDUX  Commanded  incremental  change  degrees 
(for  DAP)  in  outer  IMU  gimbal 
angle  (2's  complement) 


DELCDUX  1 6CDUY  Commanded  incremental  change  degrees 

(for  DAP)  in  inner  IMU  gimbal 
angle  (2's  complement) 


DELCDUX  2 6CDUZ  Commanded  incremental  change 

(for  DAP)  in  middle  IMU  gimbal 
angle  (2's  complement) 


DELPEROR  i- 


DELPEROR  1 (b. 


DELPEROR  2 i 


DELV  AVp 


FLAGOODW 


FLPAUTNO 


NDXCDUW 


OMEGAPD  CO 


OMEGARD 


Commanded  lag  angle  for  IMU 
outer  gimbal  (for  DAP) 


Commanded  lag  angle  for  IMU 
inner  gimbal  (for  DAP) 


Commanded  lag  angle  for  IMU 
middle  gimbal  (for  DAP) 


Change  in  velocity  due  to 
previous  2 seconds  of  thrust, 
in  SM  coordinates 


Indicates  whether  or  not  window 
pointing  command  is  good  for 
X-axis,  by  valuer  0,  +0  re- 
spectively 


Indicates  whether  or  not  auto- 
pilot is  in  control,  by  value  40.>0 
respectively 


Index  value  corresponding  to 
whether  or  not  LM  is  docked 
to  CSM,  by  value  of  1,  -f  0 re- 
spectively 


X- component  of  commanded 
attitude  rate 


attitude  rate 


degrees 


revs 

2‘^ 

revs 

2- 

revs  2 


degrees 

revs 

degrees 

revs  , 

degrees 

revs 

m/sec 

m/ sec 

deg/sec 

revs  / 
sec 

deg/sec 

revs/ 

sec 

deg/ sec 

revs/ 

sec 
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Erasable  Locations  Used  (Continued) 


GSOP 

Symbol 


Meaning 


UNFC/2, 


itJNFV/2j 

UNFY/2, 


UNFZ/2t 


UNWC72, 


UNX/2V 


= PLO, 


UNZ/2^ 
= PL12„ 


-DELGMB 
+ 1 


-DELGMB 
+ 2 


SIN(CDUX) 

Sine  of  CDUSPOTX  (above) 

SIN(CDUY) 

Sine  of  CDUSPOTY  (above) 

SIN(CDUZ) 

Sine  of  CDUSPOTZ  (above) 

uFDP 

Commanded  direction  in  SM 
coordinates 

-FV 

Measured  thrust  direction  in 
SM  coordinates 

u WDP 

Window-pointing  direction 
command,  in  SM  coordinates 

UXVDP 

Commanded  vehicle  (NB) 
Y-axis,  in  SM  coordinates 

uYVDP 

Commanded  vehicle  (NB) 
Y-axis,  in  SM  coordinates 

UZVDP 

Commanded  vehicle  (NB) 
Z-axis,  in  SM  coordinates 

-ACDUUX 

or 

-aattx 

or 

-ACDUX 

One  of  several  stages  in 
computation  of  the  negative 
commanded  outer  IMU 
gimbal  angle  change 

-ACDUUY 

or 

-ACDUY 

Preliminary  or  final  nega- 
tive commanded  inner  IMU 
gimbal  angle  change 

-ACDUUZ 

or 

-ACDUZ 

Preliminary  or  final  nega- 
tive commanded  middle  IMU 
gimbal  angle  change 

Engineering  AGC  AGC 

Units Units  Scalln 


degrees 


degrees 
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DOCUMENT  NO. 

LUMINARY  ID  FC-3960 


REV 


Constants 


DAXMAX  0 
= DAZMAX 


DAY/2MAX  9 


DT/DELT  0-  1 sec 
2 sec 


Meaning 

Engineering 
Value  & 
Units 

Maximum  magnitude  for 
commanded  IMU  outer, 
middle  gimbal 
change  (for  LM  not 
docked  with  CSM) 

20  degrees 

Maximum  magnitude  for 
commanded  IMU  outer, 
middle  gimbal  angle 
change  (for  LM  docked 
with  CSM) 

2 degrees 

Maximum  magnitude  for 
command  IMU  inner 
gimbal  angle  change  (for 
LM  not  docked  with  CSM) 

20  degrees 

Maximum  magnitude  for 
commanded  IMU  inner 
gimbal  angle  change  (for 
LM  docked  with  CSM) 

2 degrees 

Ratio  of  DAP  control 
sample  period  to  compu- 
tation period 

. 05 

IJACC  +2  o(. 
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P70  — P71  Abort  Programs 


External  Entry  Points: 


P70 

Keyed  in  by  astronaut: 

DPS 

Sh.  2 

P70A 

Entered  from  Rll: 

DPS 

Sh.  2 

P71 

Keyed  in  by  astronaut: 

APS 

Sh.  2 

P71A 

Entered  from  Rll: 

APS 

Sh.  .2 

TGOCOMP 

Compute  tg^ 

Sh.  7 

legal? 

Determine  whether 

Sh.  15 

selected  major  mode 
is  allowed  at  this  time 


THROTUP  Command  maximum  DPS  'Sh.  16 

engine  throttle  position 
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Abort  Programs 


LUMINARY  ID 


REV  3 


OXUMEffT  MO. 
FC-3970 


jSiiEEf  1 o;  25 


LEGAL  ? ^ 

Ilan  P70  be 
called  ? 

Sh.  15  ; 


No  return  if 
not  legal 


LEGAL  ? 
Can  P70  be 
called  ? 
Sh.  15 


P70A  and  P71A  are  entries 
if  P70  or  P71  called  by  abort 
)or  abort  stage  pushbutton.  I 

(Rll  monitors  the  abort 
discrete.  ) 


A -0 


P71A 


Q «—  A 


Q holds  P70-P71  indicator 


Inhibit 

Interrupts 


CONTABRT 


BRUPT - . 

ABRTJADR 

Resume 

ABRTJADR  = "TCP  ABRTJASK 
ensures  that  ABRTJASK  next 
instruction  if  in  interrupt 
mode  from  Rll. 


If  accessed  via  Rll,  this 
"resume"  command  puts  the 
program  out  of  interrupt  mode. 
In  any  case,  "RESUME"  causes 
instruction  in  BRUPT  to  be 
executed,  hence  the  transfer  to 
ABRTJASK  (next  sheet). 


Next  Sheet 
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DOCUMENT  NO. 

FC-3970 


SHEET  2 or  25 


From  Preceding  Sheet 


i.BRTJASK) 


(P70) 


Test  Q 


Which  major  mode  ? 

'> 

(P71) 


/ Group  4.  2 7 

Set  up  restarts  to  schedule 
P70A  as  a NOVAC  Job  with 
priority  25  y 


/ Group  4.31 

I Set  up  restarts  to  schedule 
P71A  as  a NOVAC  Job  withy 
priority  25  / 


From  Preceding  Sheet 


♦ 


DB  IDEGDB 


Set  DAP  deadband  to 
1°  @45 


Engine  turned  on 


Clear  bit  14,y 
\set  bit  13  of 
, Channel  11/ 


Turn  engine  on 


t 

Next  Sheet 


Bypass  all  landing  radar 
updates  (R  12 ) 


RIO  will  output 

data  to  altitude, 
altitude  rate  meters 
only. 
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From  Preceding  Sheet 
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mmamsmm 

DOCUMENT  NO. 

LUMINARY  ID  FC-3970 

ANALST 

DOCMR 

REV  a ISHEET5  Of  25 

(goabor'^ 


DVCNTR- 


WHICH—  ADR  (ABRTABLE) 


Clear 

FLRCS, 

FLUNDISP, 

IDLEFLAG 


Initialize  counter 
Nc  (@2  14)  for  AV 
Monitor 

Indicate  table  to  be 
used  by  BURNBABY 
(master  ignition 
routine) 

Main  engine  mode 

Current  guidance 
displays  permitted 

Connect  AV  Monitor 


Set 
ACC4-2FL, 
P7071FLC 


INITCDUW 
Initialize 
V thrust  and  window-} 
.pointing  vectors/ 
FC-3960 


Ensure  4-jet  translation 
capability 

P70  or  P71  (not  P12) 
using  ascent  guidance 


Output:  UNFV/2V=  Upy 

= Initial  thrust  direc- 
tion in  body  coords  @ 2 1 

UNWC/2v=  iiwDP  = 

Window  - painting 
vector  in  .SM  coords  2 


CHECKMM 
(Major  Mode  = P70‘i’V 
FC-3020 


No  (P71)  APS 


Yes:  DPS 


Next  Sheet 


P71  RET 
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From  Preceding  Sheet 


TGOCOMP 


LOADTIME 
pad  present  time 
FC-3150 


MPACp,  < — TIME2_  = Present  time  in 

^ ^ P ft 

csec  @ 2 


2^  • (MPACq  - TIGjj)  Compute  tgQ  = time  from  ignition  in  csec  @ 2 


\Return  via/ 
\ QPRET  / 


2^^  factor  is  for  scaling. 


Compute  T m csec  @ 2 

where:  . 

MASSj^  = mass  in  kg  ® 2^ 

MEXDTDPSj^  = mjjpg 


= mass  decrementation 
rate  for  DPS  thrust 

= . 148  kg/ csec  @2^ 


2^  factor  is  for  scaling. 


Initialize 


Va  parameters  in  csec/m  @ 2 


Where: 


MASSq  = mass  in  kg  @ 2 


K(l/DV)j^  = mVg  (At/2) 


csec 


Next  Sheet 
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From  Preceding  Sheet 


Compute  thrust  acceleration  in  m/csec 


2 


@2'^ 


where: 

K(AT)q  = 1/At  in  csec  ^ @ 2”^ 


17 

Set  ill  csec  @ 2 

where: 

100PCTTO„  = At.  „ /T^T3o\ 
D tail-off  (DPS) 

17 

in  csec  @ 2 


Set  Vg  = Exhaust  velocity  in  m/csec  @ 2 
where: 


DPSVEX 


(DPS) 

C 

in  m/csec  @2 


2 


-2 


factor  is  for  scaling. 


Input:  /LAND/j^  = '"lS m@  2^“^ 

VRECTCSM  = V in  reference  coords 

V — c 

RRECTCSM  = r in  reference  coords 

V — c 

Output:  RCOj^  = Rp  inm@2^‘^ 

YCOq  = in  m @ 2^^ 

YDOTDj^  = Yj^  in  m/csec  @2’^ 

TXO„  = t in  csec  @ 2^^ 

D xo 

QAXIS^  = Q @ 2^ 
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From  Preceding  Sheet 


Next  Sheet 
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- - STORPARM 


Vertical  rise 


Input:  Rv=  R in  m in  SM  coordinates 

^ R(CSM)y=  R^  in  m in  SM  coords 

/ WM  = a>  in  rad/sec  in  SM  coords 

/ V -M 

Output:  MPACj^  = 0 in  revs  @2° 


0 > 0c  ? 


J2,  K2  parameters  for  abort 
targeting 


Set  J in  m @ 2 

K in  m/ rev  @ 2‘ 


Initialize  Rp  in  m @ 2‘^ 


APOaO  GUIDANCE  AND  NAVIGATION 


Abort  Programs 


1 document  no. 

FC-3970 
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DOCUMENT  NO. 

LUMINARY  ID  FC-3970 


REV  3 SHEH  IlOF  25 


From  Preceding  Sheet 


Set  up  exit  from  SERVICER 
to  ascent  guidance  computations 
at  ATMAG  (FC-3950) 


Group  4,  0 
' Kill  Group  4 
restarts 


, ENDOFJOB 
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DOCUMENT  NO. 
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REVS 


SHECT  12  OF  25 


Abort  programs  not  allowed 


Set  Av  = minimum  acceptable  2- second 
Av 

to  APS  value 
in  m/csec  @ 10  ^ x 2^'^ 

Input;  /LAND/j^  = rj^g  in  m @ 2^^ 

VRECTCSM^  = = CSM  velocity 

in  reference  coords 
RRECTCSMy  = = CSM  position 

in  reference  coords 

Output:  l/DV3j^,  l/DV2j^,  1/DVlj^ 

= thrust  filter  parameters  in 

Y 

csec /m  @ 2 


ATj3  = 

2 

a^p  in  m/csec  g @ 2 

TBUPp 

= t in  csec  @ 2 

TTOj^  = 

^^tail-off  in  csec  @ 2 

VEd  = 

Y 

V in  m/csec  @ 2 
e 

RCOj^  = 

Rp,  in  m @ 2^“^ 

TXOp,  = X-axis  override  time  in 

^ o28 

csec  @ 2 

24 

YCOj^  = Y in  m @ 2 
YDOTDj^  = in  m/csec  @ 2^ 
QAXIS^  = Q in  SM  coords  @ 2 ^ 


Is  this  APS  continued  abort  after  DPS  staging? 


OLDTIME 


Output:  TGOjj 


t in  csec  @ 2 

go 


* 

INJTARG 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOUO  GUIDANCE  AND  NAVIGATION 

draw/ /■  

Abort  Programs 

1 

mm 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3970 

ANALST  “ 
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Is  major  mode  requested  by  astronaut  already  running  ? 


ABORTALM 


FALTON 
Turn  OPR  ERR 
light  on 


Abort  permitted  ? 


LETABORT 
V set?  / 


^RELDSP^ 
Release 
DSKY 
, FC-3080 


via  POSTJUMP 


SERVICER  running? 


PINBRNCH 
. FC-3080^ 


A VEGFLAG 
set  ? / 


store  descent  engine  throttle  command 
(maximum) 


Cause  output  pulses  to  be  sent 
from  THRUST  for  use  in 
controlling  position  of  descent 
engine  throttle 
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ERASABLE  LOCATIONS  USED  ( CONTINUED  ) 
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CONSTANTS 


R29  - POWERED  FLIGHT  RR  DESIGNATE 
MAJOR  SUBROUTINES  ON  THIS  CHART 

R29  Sh.  2 


MIT  INSTRUMENTATION  LAB 
CAMBRI[>GE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

R29-Powcred  Flight 

RR  Designate 

DRAWN  ^ J,  LJl‘ 

fhf/i.-f 

PRGMR 

iJJMINARY  ID 

DOCUMENT  NO. 

FC-3930 

ANALST  ' 

DOCMR 

lo/i/it 

APPR'DHPi^Wk.iYvi  (Sdr. 

lIWW 

REV  3 ISHEET  1 OP  14  I 

^ESIGFLG 
SET  ■?y' 


INHIBIT 

INTER- 

RUPTS 


CALLED  BY  SERVICER  FROM  R29?  SECTION 
EVERY  TWO  SECONDS  IF  NOR29FLG;  READRFLGy 
RCOUOFLG,  AUTOMODE  , REMODFLG  AND  REPOSMON 
ARE  ALL  RESET. 


R 29.  LOS 
SH3 


SET RR  DESIGNATE 

DESIGFLG  REQUESTED 


CLEAR  BIT/ 
y 14  OF  / 
\ CHAN.  12./ 


DISABLE  RR 
LOCK-ON 


CLEARS — 
LOSCMFLG 


RR  GYRO  CMD 
LOOP  OFF 


CLEARS 

OLDESFLG 


RS9  GYRO  CMD  LOOP 
NOT  REQUESTED 


/SETRRECR  ' 
ENABLE  RR 
ERROR 
COUNTERS 
\ FC-3eiO  > 


RR  ANTENNA  IN 
MODE  1 


X IS  \ 
ANTENFLG 
\ SET?/ 


RR  ANTENNA 
MODE  2 


SETPRPOS) 


RegREMOJ 

NOVAC  JOB - 
PRIOR  ITy/ 
21  ' 
SH4 


PREPOSgg 
WAITLIST  TASK/ 
' IN  < 


CI.EAR\_ 

DESIGFLG 


RR  DESIGNATE 
NOT  REQUESTED 


SET 

REPOSMON 


RR  REPOSITION 
TAKING  PLACE 


SE’r" — 1 

CHANGE  IN  ANTENNA 

NOR29NOW 

JREMO^FLG 

MODE  BEEN  REQUESTED 

FC-  3850 

\SH15X 

N0R29N0W  return  TO 
FC-3850  SERVICER 
\SH15^^ 


mr 

INSIMMCNrATION  Ul 
CAMWIKt,  MASS. 


AWALST  X 
POCTW 


AAOIUI 

niiiAwer  tm  wmtontOH 


Res- POWERED  FLIGHT 
RR  DESIGNATE 

LUMINARY  Id  I p__ 

FC“  39oO 

^ 3 I SHOT  2 Of  14“ 


R29.LOS 


MPACj,- 


-TIMESp  — PIPTIMEq 


PLOp  MPACo 


MPACy  [v(CSm)  V - Vy]  PLOd+  R(cSM)y-Rv 

PLOy-* V(CSM)y-Vy 


COMPUTE  LOSy  IN  SM  AXES 


LOSCMFLG 


Lose MF LG 


RR  GYRO  CMD 
LOOP  RUNNING 


N0RS9N0W  return  TO 
FC- 3850  SERVICER 
^SH-15^ 


SETUP 29D) 


LOSVDV-+V 


STORE  LOS  VECTOR 


-PLOy(.  5 SEC  bit)  1/2  SECONDS  WORTH  OF  LOS  VELOCITY 


LOSCMFLG 


RR  GYRO  CMD 
LOOP  OFF 


IS  \ 
.^Ol^ESFLG 


INHIBIT 

INTER- 

RUPTS 


NORg9NOW  return  TO 
FC-3850  SERVICER 


SET 

OLDESFLG 


R29  GYRO  CMu  ;.0OP 
REQUESTED 


NEXT  SHEET 


immMmrurriM  lai 

CAMMHMI,  MASS. 


AKW) 

CUIMMZ  AN»  MUTNATM* 


R29- POWERED  FLIGHT 
RR  DESIGNATE 


LUMINARY  ID 


9ocumm  m, 

FC-3980 

I sten  3 OF  14- 


FROM  PRECEDING  SHEET 


MPAC  +'lr 


R23FXLOC 


MPACy- 


• unit(mpaCv 


/ MPACVBUF 
MOVE  MPAC^ 
INTO  VBUFv 
FC-3070 


INPUT  ; MPACy  = INPUT  VECTOR 
output:  VBUFw  = OUTPUT  VECTOR 


/ IS  \ 

__/tang  >0 

NO\^  ? ^ 


INHIBIT 

inter- 

rupts 


SAVECDUTp 
CDUSPOT  -4- 
CDUSPOT  +e- 
CDUSPOT  +4- 


■COUTp 
CDUY 
■ CDUZ 
- CDUX 


/ QUICTRIG  \ 
COMPUTE  SINES 
AND  COSINES  OF 
INPUT  ANGLES 
\ FC-3320  ~y 


INPUT  : CDUSPOT; +S;  + 4.  = INPUT  ANGLES 

output:  SINCDU;  + 2;+4  = sine  of  input  angles 
COSCDU;  + 2;+4  = COSINE  OF  INPUT  ANGLES 


(gotangls) 


/ AX*SRiltT 
TRANSFORM 
INPUT  UNIT 
LOS  VECTOR 

\fC-3320 


input:  a=-3 


VBUF^  = INPUT  UNIT  LOS  VECTOR  IN  SM 
COORDI  NATES 


^ IS  \ 
TANG  > O 


R29DPASa 


INHIBIT 

I INTER-  I 
RUPTS 


LUMINARV  ID 


FROM  PRECEDING  SHEET 


TANG-- TANG  -1=0 


PUSHLOC-^ COS(sAVECDUt)  COS  T 

MODE  SIN(-SAVECDUT)  -SIN  T 


mpacd-^ sin(-savecdut)(vbuf  +2)  -SIN  t(ulosnby) 


SAVECDUT-* SIN(sAVECDUT  +i) 


mpaCq-* mpaC[3+savecdut(pushloc)  VBUF  -SIN  t(ulosnby)+sin  5(cost)ulosnbx 


SAVECDUT  +1-< COS(SAVECDUT  +l)  COS  S 


= 1/E  cos  (error)  because 

UuOSNB  15  A HALF-UNIT  VEC^'OR. 

f TESTCO^ 


MPAC  2(MPACd) 


X DID  X. 

MPACd 

sOVERFLOW/'YES 

INO 


WRITE  BIT 
\ 14  OF  j 

\CHAN, 12  / 


ENABLE  RR 
LOCK- ON 


ALLOW 

INTER- 

RUPTS 


RaBDVBEG  -1 


IMmMINTATiaN  LM 
CMMRIDfif,  MASS. 


AfOUO 

CUIMNCC  AND  NAVIMTION 


R29  -POWERED  FLIGHT 
RR  DESIGNATE 


luminary  id  ^ 

FC-3980 


StfET  8 Of  -14 


(^Rg9DPA^ 


(uLOSNB' = VALUE  FOR  SECOND  PASs) 


TANSq-^ (SAVECDUT  4^ VBUF- SAVECDUt(VBUF  -F4)j 


I 


RAW  SHAFT  command 

COS  s(ulosnb' x)-siN  s(ulosnb' z)| 


,RAW  TRUNNION 


MPACd-« MODE(saVECDUT  ) VBUF  + PUSHLOC(VBUF  +^-MODE(sAVECDUT  +d)vBUF  +4|C0MMAND 

SIN  T SIN  s(ULOSN8'x)j 


SHAFTCMD-4 RR29 GAIN  (tang) 

ItrUNNCMD-* RR29GAIN(MPAC) 


I 


REFINED  SHAFT  COMMAND 
REFINED  TRUNNION  COMMAND 


+ COST  (ulosnb'y) 

+ SINT  COS  S(UL0SN9'Z} 


D600D  ? ) 


INHIBIT 

INTER- 

RUPTS 


IS  BIT -4  / 

OF  CHAN / 

\ 33=0  /NO 


TEST  DATA -GOOD 
r 

DATA- GOOD  IS  ABSENT 


RR  DESIGNATE 
NOT  REQUESTED  I 


RROUT 


input;  TANG  =TRUNNION  COMMAND 
TANG  +1  = SHAFT  COMMAND 


SEND  OUTPUT 
PULSES  TO  RR 

\SHAFT  ^ trunnion/output:optvcmd  = cdu  for 

TRUNNION 
OPTXCMD=CDU  FOR 
SHAFT 


FC  - 3600 


ENDS9D0D 


SH-IO 


DISABLE  RR 
ERROR  counters 


READING  RR  DATA 
PURSUANT  TO  R29 


R29READ 


VWAITLISTTASI 
IN  c(a) 

CSE 


NEXT  SHEET 
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RaS- POWERED  FUSHT 
RR  DESIGNATE 


luminary  id 


NCV 


DOCUMENT  NO. 

FC-3980 


3 


SHKT  9 OF  14- 


BAD  READ 


ERROR  EXIT 


FROM  PRECEDING  SHEET 


RAD5TALL  \ 
WAIT  FOR  ' 
COMPLETION  OF 
RADAR  ROUTINE/ 


FC- 3230 


INHI  BIT 
INTER- 
RUPTS 


COPYCYCLE  TO  LOAD  NEW  R29  DOWNLINK 


RMp-* DNRR  ANGEj5 

MKTIMEd-* MPAC  D 

TANGNBd-^ MPAC  +2p 

AIGq  MPAC  +4d 

AOG  MPAC  +e 

TRKMKCNT-^ 1 


ENDOFJOB 


DOWNLINK  DATA  IS  CONSISTENT 


R29RRRF) 


/ IS  \ 
RNGSCFL^ 
V SETP  / 


BAD  READ 


(ENDRRD29) 


rngscflg 


CLEAR  SCALE  CHAVIGE 


\CLEAR  BIT,  DISABLE  RR 

\ 14  OF  / LOCK  - ON 

\cHAN  IS/ 


R29RANGE 


(ENDR29RD 


TRKMKCNT 


DOWNLINK  DATA 
IS  BAD 


CLEAR  

READRFLG 


NOT  READING  RR  DATA 
PURSUANT  TO  R29 


ENDOFJOB/ 


ANUO 

CUIMNCX  tm  NAVICATION 


RaS— POWERED  FLIGHT 
RR  DESIGNATE 


LUMINARY  ID 


LOSVDT/4^ 

TANG 

TANG+1 


GSOP 

SYMBOL 


ERASABLE  LOCATIONS  USED 


MEANING 


LINE  OF  SIGHT  VECTOR 

1/2  SECONDS  WORTH  OF  LOS 
VELOCITY  (I.E.,  A LOS) 

RR  TRUNNION  COMMAND 

HR  SHAFT  COMMAND 


ENGINEERING 

AGC 

UNITS 

UNITS 

METERS 

METERS 

METERS  SEC 

METERS 

CSEC 

BITS 

BITS 

AGO 

SCALING 


SUBROUTINES  CALLED  WHICH  ARE 
FLOWED  ON  OTHER  FLOW  CHARTS 


DESCRIPTION 


TRANSFORM  INPUT  UNIT  VECTOR  FROM  SM  TO 
NB  COORDINATES 

STORE  VECTOR  IN  MPAC  INTO  VBUF 

COMPUTE  SINES  AND  COSINES  OF 
INPUT  ANGLES 

WAIT  FOR  COMPLETION  OF  ILADAR  ROUTINE 

SEND  OUTPUT  PULSES  TO  RR  SHAFT  AND 
TRUNNION 

READ  ItADAR  RANGE 
READ  RADAR  RANGE  RATE 
SINGLE  AXIS  TRUNNION  ^L-\NEUVER 
ENABLE  RR  ERROR  COUNTERS 
DELAY  ACTIVE  TASK  TIME  IN  A 


WHE  RE 
CALLED 


SH.  4.  11,  L 
SH.  I) 

SH.  11 
SH.  11 
SH.  t 
SH.  ■> 

SH.  5,  10 


RSS- POWERED  FLIGHT 
RR  DESIGNATE 


luminary  id  oocwknt  no. 

FC-3980 


SHEET  15  OF  1-4 


1-  l.AGb 

NAME 

MEANING  WHEN  SET 

MEANING  WHEN  CLEAR 

WHERE 

SET 

WHERE 

CLEARED 

WHERE 

TESTED 

ANTENFLG 
FLAG  12 

BIT  12 

RR  ANTENNA  IS  IN 

MODE  2 

RR  ANTENNA  IS  IN- 
MODE  1 

SH.  2 

AUTOMODE 
FLAG  12 

BIT  2 

RR  NOT  IN  AUTO  MODE 

RR  IN  AUTO  MODE 

SH.  11 

DESIGFLG 
FI.AG  12 

BIT  10 

RR  DESIGNATE 
REQUESTED 

RR  DESIGNATE  NOT 
REQUESTED 

SH.  2 

SH.  2,9 

SH.  2,  5 

LOSCMFLG 
FLAG  2 

BIT  12 

RR  GYRO  CMD  LOOP 
RUNNING 

RR  GYRO  CMD  LOOP  OFF 

SH.  3,5 

SH.  2,  3,  10 

SH.  3,5 

NOR2  9FLG 
FLAG  3 

BIT  11 

R2  9 NOT  ALLOWED 

R2  9 ALLOWED 

SH.  11 

OLUESFLG 
FLAG  0 

BIT  1 

R2  9 GYRO  CMD  LOOP 
REQUESTED 

R2  9 GYRO  CMD  LOOP 

NOT  REQUESTED 

SH.  3 

SH.  2 

SH.  3 

READRFLG 
FLAG  3 

BIT  9 

READING  RR  DATA 
PURSUANT  TO  R29 

NOT  READING  RR  DATA 
PURSUANT  TO  R2  9 

SH.  12 

SH.  10 

REMODFLG 
FLAG  12 

BIT  14 

CHANGE  IN  ANTENNA 
MODE  HAS  BEEN 
REQUESTED 

NO  REMODE  REQUESTED 

SH.  2 

REPOSMON 
FLAG  12 

BIT  11 

RR  REPOSITION  IS 
TAKING  PLACE 

NO  REPOSITION  TAKING 
PLACE 

SH.  2 

SH.  -i 

RNGSCFLG 
FLAG  5 

BIT  10 

SCALE  CHANGE  HAS 
OCCURRED  DURING 

RR  READING 

NO  SCALE  CHANGE  HAS 
OCCURRED  DURING 

RR  READING 

SH.  12 

SH.  12 

INDEX 


Major  entries 

Each  major  entry  is  followed  by  (1)  the  number  and  name 
of  the  flowchart  in  which  it  is  flowed,  (2)  the  word  ENTRY, 
and  (3)  the  sheet  on  which  the  entry  begins. 

Example:  KEYRUPTl  FC-3110  Keyrupt  and  Uprupt  ENTRY  4 

This  means  that  KEYRUPTl  is  flowed  in  FC-3110,  Keyrupt 
and  Uprupt,  starting  on  sheet  4. 

Subroutines 

The  name  of  each  subroutine  called  in  one  flowchart  and 
flowed  in  another  is  followed  by  (1)  the  number  and  name 
of  the  flowchart  in  which  it  is  called,  (2)  the  word  CALLED, 
and  (3)  the  sheet(s)  on  which  it  is  called. 

Example:  AXISGEN  FC-3520  P57  CALLED  35,  40 

This  means  that  AXISGEN  is  a subroutine  called  on  sheets 
35  and  40  of  FC-3520,  P57,  and  flowed  in  some  other 
flowchart. 

Flag  bits 

The  name  of  each  flag  bit  is  followed  by  the  number  and 
name  of  the  flowchart  in  which  the  flag  is  set,  cleared, 
or  tested.  The  letters  S,  C,  and  T and  the  numbers 
following  them  indicate  on  which  sheet(s)  the  flag  is 
set,  cleared,  or  tested. 

Example:  AVFLAG  FC-3720  P32/P72  (CSI)  S-2  C-2 

This  means  that  AVFLAG  is  set  on  sheet  2 and  cleared 
on  sheet  2 of  FC-3720,  P32/P72  (CSI). 


13-1 


«NBSM=i‘ 

FC-3320 

ENTRY 

11 

«NBSM« 

FC-3520 

CALLED 

12»39 

*NBSM* 

FC-3600 

CALLED 

42 

*NBSM* 

FC-3900 

CALLED 

31 

«SMNB* 

FC-3320 

ENTRY 

11 

^SMNB* 

FC-3435 

CALLED 

5 

*SMNB* 

FC-3520 

CALLED 

20 

*SMNB« 

FC-3600 

CALLED 

35»41 

*SMNB* 

FC-3960 

CALLED 

7 

ABTKLEAN 

FC-3010 

CALLED 

5 

ABTKLEAN 

FC-3970 

CALLED 

5 

ABTTGFLG 

FC-3970 

S-10 

ACCOKFLG 

FC-3440 

T- 

ACCOKFLG 

FC-3490 

S-28 

ACCOMP 

FC-3355 

ENTRY 

10 

ACC4-2FL 

FC-3440 

T- 

ACCA-2FL 

FC-3470 

T- 

ACCA-2FL 

FC-3950 

S-3 

ACCA-2FL 

FC-3970 

S-6 

ACDT+C12 

FC-3470 

CALLED 

3 

ACDT+C12 

FC-3480 

ENTRY 

17 

ACMODFLG 

FC-3600 

S-17 

C-15 

T- 

ACTIVE 

FC-3720 

CALLED 

17 

ACTIVE 

FC-3730 

CALLED 

2 

ACTIVE 

FC-3740 

CALLED 

15 

ADVANCE 

FC-3720 

ENTRY 

10 

ADVANCE 

FC-3730 

CALLED 

2 

AGSINIT 

FC-3250 

ENTRY 

2 

ALARM 

FC-3010 

CALLED 

19 

ALARM 

FC-3140 

ENTRY 

4 

ALARM 

FC-3210 

CALLED 

12,29,36,37t50,51,52 

ALARM 

FC-3220 

CALLED 

2»3t 13t20 

ALARM 

FC-3310 

CALLED 

7 

ALARM 

FC-3355 

CALLED 

38 

ALARM 

FC-3470 

CALLED 

23»49t74,7B 

ALARM 

FC-3510 

CALLED 

24 

ALARM 

FC-3520 

CALLED 

8,28 

ALARM 

FC-3530 

CALLED 

10, 19,20,22,25,30 

ALARM 

FC-3600 

CALLED 

33,52,64 

ALARM 

FC-3730 

CALLED 

3 

ALARM 

FC-3800 

CALLED 

2 

ALARM 

FC-3810 

CALLED 

9 

ALARM 

FC-3900 

CALLED 

12, 19,26 

ALARM 

FC-3935 

CALLED 

5,11 

ALARM 

FC-3960 

CALLED 

13,22 

ALARMl 

FC-3140 

ENTRY 

8 

ALARM2 

FC-3140 

ENTRY 

4 

ALINTIME 

FC-3240 

ENTRY 

2 

ALLCOAST 

FC-3010 

CALLED 

28 

ALLCOAST 

FC-3440 

ENTRY 

17 

ALLCOAST 

FC-3840 

CALLED 

17,23 

ALM/END 

FC-3100 

ENTRY 

2 

ALM/END 

FC-3400 

CALLED 

2 

ALM/END 

FC-3435 

CALLED 

2 

ALM/END 

FC-3780 

CALLED 

2 

ALM/END 

FC-3790 

CALLED 

2 

ALSIGNAG 

FC-3250 

CALLED 

4 

ALSIGNAG 

FC-3935 

CALLED 

18 

ANTENFLG 

FC-3600 

T-29,30,41 

, 45 ,46 

ANTENFLG 

FC-3980 

T-2 

AORBSFLG 

FC-3A70 

S-42 

C-42 

T-31,39 

• 

AORBTFLG 

FC-3470 

T-48,58 

AOTMARK 

FC-3500 

CALLED 

5 

AOTMARK 

FC-3510 

CALLED 

25 

AOTMARK 

FC-3520 

CALLED 

31 

AOTMARK 

FC-3530 

ENTRY 

2 

AOTSTALL 

FC-3220 

ENTRY 

35 

AOTSTALL 

FC-3500 

CALLED 

5 

AOTSTALL 

FC-3520 

CALLED 

31 

A-PCHK 

FC-3355 

ENTRY 

39 

APSESW 

FC-3360 

S-25 

C-25 

APSFLAG 

FC-3440 

S-5 

C-5 

T-2, 9, 11 

APSFLAG 

FC-3470 

T-47,63 

APSFLAG 

FC-3490 

T-3 

APSFLAG 

FC-3840 

T-11 

APSFLAG 

FC-3850 

T-9, 12 

APSFLAG 

FC-3910 

S-2 

APSFLAG 

FC-3970 

S-3 

APSIDES 

FC-3360 

ENTRY 

39 

APSIDES 

FC-3760 

CALLED 

13 

ARCTRGSP 

FC-3960 

ENTRY 

33 

ARCTR IG 

FC-3310 

ENTRY 

4 

ARCTRIG 

FC-3600 

CALLED 

8,37 

ASCENT 

FC-3950 

ENTRY 

15 

ASTNFLAG 

FC-3840 

S-6t 16 

C-7,9 

T-8 

ATMAG 

FC-3950 

ENTRY 

12 

ATOPCSM 

FC-3350 

ENTRY 

7 

ATOPCSM 

FC-3355 

CALLED 

34,39 

ATOPCSM 

FC-3600 

CALLED 

14 

ATOPLEM 

FC-3350 

ENTRY 

9 

ATOPLEM 

FC-3355 

CALLED 

34,39 

ATOPOTH 

FC-3640 

CALLED 

6 

ATTACHED 

FC-3605 

ENTRY 

2 

ATTFLAG 

FC-3520 

S-47 

T-6,7,9 

AUTMANSW 

FC-3420 

C-2 

AUTOMODE 

FC-3600 

T-47,71 

AUTOMODE 

FC-3980 

T-1 1 

AUTRIFLG 

FC-3440 

T-7 

AUTR2FLG 

FC-3440 

T-7 

AUXFLAG 

FC-3850 

S-12 

C-11 

T-12 

AVEGFLAG 

FC-3210 

T-14 

AVEGFLAG 

FC-3760 

V T-6 

AVEGFLAG 

FC-3770 

T-3 

AVEGFLAG 

FC-3850 

S-2 

T-4 

AVEGFLAG 

FC-3930 

T-2 

AVEGFLAG 

FC-3935 

-4 

AVEGFLAG 

FC-3970 

T-15 

AVEMIDSW 

FC-3350 

S-23 

T-29 

AVEMIDSW 

FC-3355 

n 

1 

o 

AVESTAR 

FC-3530 

ENTRY 

1 1 

AVETOMI D 

FC-3350 

ENTRY 

23 

AVETOMID 

FC-3850 

CALLED 

14 

• 

AVFLAG 

FC-3720 

S-2 

C-2 

AVFLAG 

FC-3730 

S-1 

C-1 

13-3 


AVFLAG 

FC-37AO 

S-2 

AVFLAG 

FC-3760 

AVFLAG 

FC-3810 

S-13 

AVFLAG 

FC-3820 

S-2 

AVFLAGA 

FC-3720 

ENTRY 

2 

AVFLAGA 

FC-3750 

CALLED 

2 

AVFLAGP 

FC-3720 

ENTRY 

2 

AVFLAGP 

FC-3750 

CALLED 

2 

AXISGEN 

FC-3310 

ENTRY 

8 

AXISGEN 

FC-3500 

CALLED 

8 

AXISGEN 

FC-3510 

CALLED 

28 

AXISGEN 

FC-3520 

CALLED 

35,40 

AX>!^SR=4=T 

FC-3320 

ENTRY 

12 

AX*SR*T 

FC-3980 

CALLED 

7 

BADEND 

FC-3220 

ENTRY 

34 

BAILOUT 

FC-3140 

ENTRY 

5 

BAILOUT 

FC-3470 

CALLED 

2 

RAILOUTl 

FC-3040 

CALLED 

22 

BAILOUTl 

FC-3140 

ENTRY 

7 

BA ILOUTl 

FC-3220 

CALLED 

35 

BAILOUTl 

FC-3530 

CALLED 

2,3 

BALLANGS 

FC-3400 

CALLED 

4 

BALLANGS 

FC-3420 

ENTRY 

9 

BALLANGS 

FC-3600 

CALLED 

25 

BANKCALL 

FC-3060 

ENTRY 

2 

BANKJUMP 

FC-3060 

ENTRY 

3 

BEGDES 

FC-3210 

CALLED 

24 

BEGDES 

FC-3600 

ENTRY 

39 

BLANKET 

FC-3435 

CALLED 

7 

BLANKET 

FC-3440 

CALLED 

4,8,1 

BLANKET 

FC-3600 

CALLED 

7 

BLANKET 

FC-3740 

CALLED 

24 

BRANCH 

FC-3935 

CALLED 

17,23 

BURNBABY 

FC-3840 

ENTRY 

2 

BURNBABY 

FC-3950 

CALLED 

11 

B50FF 

FC-3050 

ENTRY 

10 

CA+ECE 

FC-3210 

CALLED 

54 

CAGESUB 

FC-3210 

ENTRY 

56 

CAGESUBl 

FC-3210 

ENTRY 

56 

CAGESUB2 

FC-3210 

ENTRY 

56 

CAGETEST 

FC-3220 

ENTRY 

37 

CAGETSTJ 

FC-3220 

ENTRY 

37 

CAGETSTO 

FC-3220 

ENTRY 

37 

CA+ECE 

FC-3220 

ENTRY 

14 

CALCGA 

FC-3310 

ENTRY 

5 

CALCGA 

FC-3510 

CALLED 

18 

CALCGA 

FC-3520 

CALLED 

13,37 

CALCGRAV 

FC-3850 

ENTRY 

18 

CALCGTA 

FC-3310 

ENTRY 

2 

CALCGTA 

FC-3510 

CALLED 

19,48 

CALCGTA 

FC-3520 

CALLED 

35,40 

CALCMAN2 

FC-3430 

S-9 

CALCMAN3 

FC-3430 

S-9 

CALCN83 

FC-3830 

ENTRY 

5 

CALCN85 

FC-3810 

ENTRY 

5 

CALCPERR 

FC-3440 

CALLED 

23 

CALCRVG 

FC-3850 

ENTRY 

18 

C-2 


C-10 


T-15 


T-10 


1 O A 


CALCSMC 

FC-3320 

ENTRY 

16 

CALCSMSC 

FC-3510 

CALLED 

17,3 

CALCSMSC 

FC-3520 

CALLED 

21,2 

CALCTFF 

FC-3370 

ENTRY 

5 

CALCTFF 

FC-3770 

CALLED 

20 

CALCTPER 

FC-3370 

ENTRY 

5 

CALCTPER 

FC-3770 

CALLED 

19 

CCSHOLE 

FC-3140 

ENTRY 

5 

CCSHOLE 

FC-3440 

CALLED 

29 

CDESFLAG 

FC-3600 

S-51 ,85 

CDHMVR 

FC-3720 

CALLED 

17 

CDHMVR 

FC-3730 

ENTRY 

5 

CDRVE 

FC-3210 

ENTRY 

4 

CD*TR*G 

FC-3320 

ENTRY 

2 

CD*TR=>=G 

FC-3420 

CALLED 

9 

CD=i'TR«GS 

FC-3320 

ENTRY 

2 

CDUINC 

FC-3150 

ENTRY 

9 

CDULOGIC 

FC-3150 

ENTRY 

3 

CDULOGIC 

FC-3320 

CALLED 

3 

CDULOGIC 

FC-3430 

CALLED 

21 

CDULOGIC 

FC-3530 

CALLED 

15,1 

CDULOGIC 

FC-3600 

CALLED 

41,5 

CDU*NBSM 

FC-3320 

ENTRY 

10 

CDU*NBSM 

FC-3780 

CALLED 

8 

CDU*SMNB 

FC-3320 

ENTRY 

9 

CDU^SMNB 

FC-3520 

CALLED 

26 

CDU^SMNB 

FC-3600 

CALLED 

25 

CDU=«=SMNB 

FC-3810 

CALLED 

5 

CDU*SMNB 

FC-3810 

CALLED 

6 

CDU^SMNB 

FC-3910 

CALLED 

3 

CDUTODCM 

FC-3420 

CALLED 

6 

CDUTODCM 

FC-3430 

ENTRY 

21 

CDUTRIG 

FC-3320 

ENTRY 

2 

CDUTRIG 

FC-3435 

CALLED 

4 

CDUTRIG 

FC-3510 

CALLED 

17,3 

CDUTRIG 

FC-3520 

CALLED 

20,2 

CDUTRIG 

FC-3600 

CALLED 

35,4 

CDUTRIGS 

FC-3320 

ENTRY 

2 

CHANGEVB 

FC-3530 

ENTRY 

28 

CHANGl 

FC-3100 

CALLED 

3 

CHANGl 

FC-3935 

CALLED 

20 

CHARIN 

FC-31 10 

CALLED 

10 

CHECKMM 

FC-3840 

CALLED 

4,8 

CHECKMM 

FC-3970 

CALLED 

6 

CHEKB I TS 

FC-3320 

CALLED 

2 

CHEKBITS 

FC-3440 

ENTRY 

20 

CHKL INUS 

FC-3420 

ENTRY 

10 

CHKPOOH 

FC-3100 

ENTRY 

2 

CHKPOOH 

FC-3400 

CALLED 

2 

CHKPOOH 

FC-3410 

CALLED 

2 

CHKSDATA 

FC-3500 

CALLED 

7 

CHKSDATA 

FC-3510 

ENTRY 

46 

CHKVISFZ 

FC-3470 

ENTRY 

21 

CKMID2 

FC-3355 

ENTRY 

37 

CLEANDSP 

FC-3840 

CALLED 

5,15 

CLOKTASK 

FC-3720 

CALLED 

24 

CLOSEOUT 

FC-3480 

CALLED 

9 

C-2,3»33,49 


T-39,46 


6»A6 


13-5 


CLRADMOD 

FC-3010 

CALLED 

27,29 

CLRADMOD 

FC-3950 

CALLED 

2 

CMOONFLG 

FC-3350 

S-7 

C-7 

T-8 

CMOONFLG 

FC-3605 

S-2 

C-2 

CMOONFLG 

FC-3640 

T-7 

CMOONFLG 

FC-3720 

T-2 

CMOONFLG 

FC-3740 

T-23,27,28 

CMOONFLG 

FC-3760 

T-14 

COARS 

FC-3220 

ENTRY 

9 

COARSE 

FC-3500 

ENTRY 

9 

COARSE 

FC-3510 

CALLED 

11 

COARSE 

FC-3520 

CALLED 

16,38 

COATRIM 

FC-3520 

ENTRY 

37 

COGAFLAG 

FC-3360 

S-23 

C-23,34 

COMFAIL 

FC-3850 

CALLED 

13 

COMMINI T 

FC-3950 

ENTRY 

45 

COMMINIT 

FC-3970 

CALLED 

8 

COMPTGO 

FC-3720 

ENTRY 

24 

COPYCYC 

FC-3850 

ENTRY 

19 

COSINE 

FC-3320 

CALLED 

4 

CPHIFLAG 

FC-3310 

S-7 

T-7 

CREWMANU 

FC-3410 

ENTRY 

2 

CSI/A 

FC-3720 

ENTRY 

12 

CSMCONIC 

FC-3350 

ENTRY 

13 

CSMCONIC 

FC-3AOO 

CALLED 

3 

CSMCONIC 

FC-3600 

CALLED 

22,50 

CSMDKFLG 

FC-34A0 

S-5 

C-5 

T-6,a ,9 

CSMDKFLG 

FC-3470 

T-12,38,57 

CSMDKFLG 

FC-3490 

T-3 

CSMDKFLG 

FC-3960 

T-3 

CSMPREC 

FC-3250 

CALLED 

3 

CSMPREC 

FC-3350 

ENTRY 

12 

CSMPREC 

FC-3760 

CALLED 

15 

CSMPREC 

FC-3780 

CALLED 

3 

CSMPREC 

FC-3840 

CALLED 

3 

CSMSTORE 

FC-3760 

ENTRY 

15 

CSMVEC 

FC-3605 

ENTRY 

3 

CULTFLAG 

FC-3510 

S-41 

C-41 

T-37 

CURTAINS 

FC-3140 

ENTRY 

4 

CURTAINS 

FC-3500 

CALLED 

5,10 

CURTAINS 

FC-3510 

CALLED 

20,25, 

49 

CURTAINS 

FC-3520 

CALLED 

31,41 

CUTOFF 

FC-3950 

ENTRY 

39 

C13STALL 

FC-3440 

ENTRY 

40 

C13STALL 

FC-3470 

CALLED 

35 

C13STALL 

FC-3900 

CALLED 

7 

C33TEST 

FC-32 10 

ENTRY 

45 

DAPATTER 

FC-3440 

ENTRY 

38 

DAPDISP 

FC-3440 

ENTRY 

2 

DAPIDLER 

FC-3010 

CALLED 

8 

DAPIDLER 

FC-3440 

ENTRY 

13 

OAPT4S 

FC-3210 

ENTRY 

57 

DBSELFLG 

FC-3440 

T-19 

DBSL2FL 

FC-3440 

T-19 

DCMTOCDU 

FC-3420 

CALLED 

8 

DCMTOCDU 

FC-3430 

ENTRY 

19 

DELAYJOB 

FC-3050 

ENTRY 

6 

13-6 


DELAYJOB 

FC-3250 

CALLED 

3 

DELAYJOB 

FC-3280 

CALLED 

4,5 

DELAYJOB 

FC-3600 

CALLED 

9,18 

DELAYJOB 

FC-3720 

CALLED 

7 

DELAYJOB 

FC-3770 

CALLED 

13 

DELAYJOB 

FC-3810 

CALLED 

5 

DELCOMP 

FC-3420 

CALLED 

7,8 

DELCOMP 

FC-3430 

ENTRY 

16 

DELTIME 

FC-3360 

ENTRY 

26 

DESCBITS 

FC-3530 

CALLED 

18 

DESCBITS 

FC-3940 

ENTRY 

6 

DESIGFLG 

FC-3600 

C-2, 3, 33, 40, 43, 49  T-39,4 

DESIGFLG 

FC-3980 

S-2 

C-2,9  T-2,5 

DIDFLAG 

FC-3930 

S-12 

C-11  T-12 

DIFEO+0 

FC-3355 

ENTRY 

28 

DIFEO+1 

FC-3355 

ENTRY 

28 

DIFEO+2 

FC-3355 

ENTRY 

33 

DIMOFLAG 

FC-3350 

S-4t23 

C-3,5, 11 , 13,14,24,27 

DIMOFLAG 

FC-3355 

C-38  T-10,13,33 

DIMOFLAG 

FC-3600 

S-13,20,73t80 

C-12,20,21,72,80 

DIMOFLAG 

FC-3610 

C-3 

DI SDVLVC 

FC-3720 

ENTRY 

9 

DISPEXIT 

FC-3940 

CALLED 

2 

DLY2 

FC-3040 

ENTRY 

7 

DMENFLG 

FC-3600 

S-72 

C-80 

DMP 

FC-3320 

CALLED 

17,19, 

20 

DMPSUB 

FC-3320 

CALLED 

13,14, 

18,20 

DNTMFAST 

FC-3210 

ENTRY 

51 

DOACCFUN 

FC-3490 

ENTRY 

32 

DORREPOS 

FC-3210 

ENTRY 

22 

D0T6RUPT 

FC-3440 

ENTRY 

28 

D01/NET+ 

FC-3490 

ENTRY 

32 

DOW.  . 

FC-3355 

ENTRY 

41 

DOW.  .1 

FC-3355 

ENTRY 

42 

DOWNENT2 

FC-3050 

ENTRY 

2 

DOWIMFLAG 

FC-3050 

ENTRY 

3 

DPMODE 

FC-3150 

ENTRY 

14 

DRIFTDFL 

FC-3440 

S-18 

DRIFTDFL 

FC-3470 

T-17,47,63 

DR  I FTDFL 

FC-3490 

T-15 

DRIFTDFL 

FC-384d 

S-20 

C-9 

DRIFTDFL 

FC-3970 

C-3 

DRIFTFLG 

FC-3040 

T-20 

DR IFTFLG  . 

FC-3210 

S-44 

T-44 

DRIFTFLG 

FC-3220 

C-8 

DRIFTFLG 

FC-3230 

T-12 

DRIFTFLG 

FC-3500 

S-4 

DRIFTFLG 

FC-3510 

C-19 

DRIFTFLG 

FC-3850 

S-14 

C-2 

DR  I FTSUB 

FC-3230 

ENTRY 

11 

DSKYFLAG 

FC-3110 

S-5 

DSKYFLAG 

FC-3210 

T-5 

DSPOUTSB 

FC-3210 

ENTRY 

63 

DSRUPTSW 

FC-3210 

S-60 

C-60  T-3,60,62 

DVBYCOSM 

FC-3960 

ENTRY 

39 

D60R9FLG 

FC-3350 

S-23 

C-3, 5, 24 

D6DR9FLG 

FC-3355 

T-34 

13-7 


D60R9FLG 

FC-3600 

S-13,20,73 

C-12, 

20,21,72,80 

ENDEXT 

FC-3770 

CALLED 

14 

ENDIMU 

FC-3220 

ENTRY 

34 

ENDMANUV 

FC-3430 

CALLED 

4 

ENDMARK 

FC-3530 

CALLED 

13 

ENDRRMON 

FC-3210 

ENTRY 

57 

ENDTNON 

FC-3210 

ENTRY 

40 

ENEMA 

FC-3010 

CALLED 

5 

ENEMA 

FC-3970 

CALLED 

5 

ENGINOFl 

FC-3010 

CALLED 

25t28 

ENGINGF2 

FC-3950 

CALLED 

38 

ENGINOF2 

FC-3840 

ENTRY 

13 

ENGOFF 

FC-3950 

ENTRY 

36 

ENGOFFl 

FC-3950 

ENTRY 

38 

ENGONFLG 

FC-3210 

C-33 

ENGONFLG 

FC-3840 

S-8 

C-23 

ENGONFLG 

FC-3960 

T-15 

ENGONFLG 

FC-3970 

S-4 

ENGOFTSK 

FC-3820 

CALLED 

3 

ERADFLAG 

FC-3330 

T-11, 

ERADFLAG 

FC-3510 

C-5 

ERADFLAG 

FC-3520 

C-44 

ERADFLAG 

FC-3610 

C-5 

ETPIFLAG 

FC-3740 

S-3 

C-3 

T-4,  1 

EXTVBACT 

FC-3530 

S-2 

C-33 

T-2 

FALTON 

FC-3010 

CALLED 

24 

FALTON 

FC-3090 

CALLED 

15 

FALTON 

FC-3100 

CALLED 

2 

FALTON 

FC-3120 

CALLED 

9,10, 

13 

FALTON 

FC-3400 

CALLED 

2 

FALTON 

FC-3410 

CALLED 

2 

FALTON 

FC-3600 

CALLED 

17 

FALTON 

FC-3770 

CALLED 

2 

FALTON 

FC-3970 

CALLED 

15 

FBR3 

FC-3355 

ENTRY 

29 

FINALFLG 

FC-3700 

S-3 

FINALFLG 

FC-3720 

S-8 

T-4, 8 

FINALFLG 

FC-3730 

T-4 

FINALFLG 

FC-3710 

S-4 

FINALFLG 

FC-3740 

C-28 

T-25 

FINALFLG 

FC-3760 

C-14 

FINDCDUW 

FC-3810 

CALLED 

8 

FINDCDUW 

FC-3810 

CALLED 

9 

FINDCDUW 

FC-3900 

CALLED 

26 

FINDCDUW 

FC-3950 

CALLED 

33 

FINDCDUW 

FC-3960 

ENTRY 

3 

FINDVAC 

FC-3430 

CALLED 

14 

F IXDELAY 

FC-3040 

ENTRY 

7 

FIXDELAY 

FC-3210 

CALLED 

18,19 

,20,23 

F IXDELAY 

FC-3220 

CALLED 

12 

FIXDELAY 

FC-3600 

CALLED 

19,47 

FIXDELAY 

FC-3780 

CALLED 

2 

F I XDELAY 

FC-3840 

CALLED 

9,  13 

FIXDELAY 

FC-3935 

CALLED 

8 

FLAP 

FC-3950 

T-44 

FLAP 

FC-3970 

S-11 

T-13 

FLASHOFF 

FC-3100 

CALLED 

4 

12 


^ o 


o 


FLATOUT 

FC-3840 

CALLED 

18 

FLATOUT 

FC-3900 

ENTRY 

39 

FLIP 

FC-3930 

ENTRY 

3 

FLGWRDll 

FC-3140 

C-16 

FLPC 

FC-3950 

S-21 

T-21 

FLPI 

FC-3950 

S-3 

C-11  T-28 

FLRCS 

FC-3950 

S-39 

T-12,17 

FLRCS 

FC-3970 

C-6 

FLTRSUB 

FC-3960 

ENTRY 

23 

FLUNDI SP 

FC-3840 

S-19 

C-9, 17, 19 

FLUNDI SP 

FC-3900 

T-26 

FLUNDI SP 

FC-3950 

T-34 

FLUNDISP 

FC-3970 

C-6 

FL  VR 

FC-3950 

S-3 

C-30  T-28 

FLVR 

FC-3970 

S-10 

FREEFLAG 

FC-3345 

S-2 

C-2  T-2 

FREEFLAG 

FC-3500 

T-7 

FREEFLAG 

FC-3510 

S-47 

C-A7  T-28 

FREEFLAG 

FC-3520 

S-14 

C-14  T-15,34 

G+N, AUTO 

FC-3420 

ENTRY 

11 

G£N, AUTO 

FC-3840 

CALLED 

11 

GAMCOMP 

FC-3355 

ENTRY 

24 

GCOMPSUB 

FC-3230 

ENTRY 

10 

GCOMPZER 

FC-3520 

CALLED 

17 

GENTRAN 

FC-3050 

ENTRY 

9 

GENTRAN 

FC-3605 

CALLED 

2 

GEOM 

FC-3360 

ENTRY 

35 

GETDAT 

FC-3530 

ENTRY 

5 

GETDT 

FC-3820 

ENTRY 

3 

GET.LVC 

FC-3710 

CALLED 

3 

GET.LVC 

FC-3760 

ENTRY 

12 

GET.LVC 

FC-3800 

CALLED 

5,6 

GET+MGA 

FC-3720 

CALLED 

7 

GET+MGA 

FC-3760 

ENTRY 

11 

GETERAD 

FC-3330 

ENTRY 

9 

GETX 

FC-3360 

ENTRY 

27 

GLOCKMON 

FC-3210 

ENTRY 

53 

GLOKFAIL 

FC-3310 

S-7 

GODSPR 

FC-3510 

CALLED 

19 

GOFLASH 

FC-3510 

CALLED 

3,7,15,24,42,44,47,48 

GOLOADLV 

FC-3100 

ENTRY 

4 

GOMARKF 

FC-3120 

CALLED 

A, 5, 6 

GOMARK3R 

FC-3440 

CALLED 

12 

GOODEND 

FC-3220 

ENTRY 

34 

GOODEND 

FC-3530 

CALLED 

14 

GOPERFl 

FC-3510 

CALLED 

7,22,29 

G0PERF4R 

FC-3510 

CALLED 

2 

GOPIN 

FC-3440 

ENTRY 

37 

GOPROG 

FC-3010 

ENTRY 

15 

G0PR0G2 

FC-3140 

CALLED 

13,18 

GOXDSPF 

FC-3240 

CALLED 

3 

GOXDSPFR 

FC-3440 

CALLED 

4,8,11 

GPMATRIX 

FC-3210 

ENTRY 

57 

GTS 

FC-3470 

CALLED 

44 

GTS 

FC-3480 

ENTRY 

2 

GUESSW 

FC-3360 

T-13, 17 

GUESSW 

FC-3760 

S-4 

C-6 
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GUIDINIT 

FC-3900 

CALLED 

3 

GUIDIIMIT 

FC-3950 

ENTRY 

42 

GUILDRET 

FC-3900 

ENTRY 

5 

GUILDRET 

FC-3940 

CALLED 

3 

GVDETER 

FC-3520 

ENTRY 

11 

GYCOARS 

FC-3510 

ENTRY 

19 

GYROTRIM 

FC-3520 

ENTRY 

39 

HAVEGUES 

FC-3760 

ENTRY 

4 

HAVEGUES 

FC-3810 

CALLED 

13 

HBAD 

FC-3930 

ENTRY 

7 

HFAILFLG 

FC-3935 

S-31 

C-17 

HFLSHFLG 

FC-3930 

T-3 

HFLSHFLG 

FC-3935 

S-31 

C-17 

IBNKCALL 

FC-3060 

ENTRY 

5 

ICDUFAIL 

FC-3210 

ENTRY 

31 

IDLEFLAG 

FC-3140 

S-16 

IDLEFLAG 

FC-3820 

S-3 

T-2 

IDLEFLAG 

FC-3840 

S-19 

C-9, 19 

IDLEFLAG 

FC-3950 

S-37 

T-19 

IDLEFLAG 

FC-3970 

C-6 

IFAILOK 

FC-3220 

ENTRY 

17 

IGNFLAG 

FC-3840 

S-8 

C-7,9 

T-16 

IMPULSW 

FC-3810 

S-9 

IMPULSW 

FC-3820 

C-3 

T-2 

IMPULSW 

FC-38A0 

S-22 

C-9, 21 

T-9 

IMUBAD 

FC-3210 

CALLED 

42 

IMUBAD 

FC-3220 

ENTRY 

34 

IMUCAGE 

FC-3210 

ENTRY 

33 

IMUCHK 

FC-3500 

ENTRY 

2 

IMUCHK 

FC-3520 

CALLED 

2 

IMUCOARS 

FC-3220 

ENTRY 

6 

IMUCOARS 

FC-3500 

CALLED 

10 

IMUFAIL 

FC-3210 

ENTRY 

31 

IMUF INE 

FC-3220 

ENTRY 

15 

IMUFINE 

FC-3500 

CALLED 

10 

IMUF INED 

FC-3220 

ENTRY 

16 

IMUGOOD 

FC-3220 

ENTRY 

34 

IMUMON 

FC-3210 

ENTRY 

25 

IMUOP 

FC-3210 

ENTRY 

35 

IMUPULSE 

FC-3150 

CALLED 

1 1 

IMUPULSE 

FC-3220 

ENTRY 

21 

IMUPULSE 

FC-3230 

CALLED 

10 

IMUPULSE 

FC-3510 

CALLED 

20,49 

IMUPULSE 

FC-3520 

CALLED 

42 

IMUSE 

FC-3210 

C-36 

T-36 

IMUSE 

FC-3220 

S-33 

IMUSE 

FC-3250 

T3 

IMUSE 

FC-3500 

S-2 

IMUSE 

FC-3600 

C-2 

IMUSTALL 

FC-3220 

ENTRY 

35 

IMUSTALL 

FC-3230 

CALLED 

11 

IMUSTALL 

FC-3250 

CALLED 

3 

IMUSTALL 

FC-3500 

CALLED 

10 

IMUSTALL 

FC-3510 

CALLED 

20,49 

IMUSTALL 

FC-3520 

CALLED 

41 

IMUZERO 

FC-3220 

ENTRY 

2 

IMUZERO 

FC-3250 

CALLED 

3 
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IMUZER02 

FC-3220 

ENTRY 

4 

INCORPl 

FC-3600 

CALLED 

83 

INCORP2 

FC-3600 

CALLED 

83 

INFINFLG 

FC-3360 

S-30 

C-30 

INITALGN 

FC-3520 

S-9 

C-10 

INITCDUW 

FC-3960 

ENTRY 

2 

INITCDUW 

FC-3970 

CALLED 

6 

INITVFL 

FC-3710 

CALLED 

3 

INITVFL 

FC-3740 

CALLED 

19 

INITVFL 

FC-3760 

ENTRY 

4 

INITVFL 

FC-3800 

CALLED 

6 

INSTALL 

FC-3120 

CALLED 

8 

INTFGRV 

FC-3350 

ENTRY 

15 

INTFGRV 

FC-3600 

CALLED 

12,21 

INTFGRV 

FC-3610 

CALLED 

3 

INTFGRV2 

FC-3355 

CALLED 

36 

INTFGRVS 

FC-3350 

ENTRY 

14 

INTFGRVS 

FC-3610 

CALLED 

3 

INTFGRVS 

FC-3640 

CALLED 

4 

INTFGRVS 

FC-3740 

CALLED 

23 

INTFGRVS 

FC-3760 

CALLED 

7 

INTFGRVS 

FC-3780 

CALLED 

5 

INTFGRVS 

FC-3900 

CALLED 

20 

INTFLAG 

FC-3350 

C-19 

INTGRATF 

FC-3355 

ENTRY 

9 

INTINT 

FC-3720 

CALLED 

4, 16,17, 

INTINT 

FC-3730 

CALLED 

2 

INTINT2C 

FC-3720 

ENTRY 

16 

INTINT3P 

FC-3730 

ENTRY 

2 

INTPRET 

FC-3320 

CALLED 

9 

INTSTALL 

FC-3010 

CALLED 

26 

INTSTALL 

FC-3350 

ENTRY 

17 

INTSTALL 

FC-3600 

CALLED 

3,6,  12 

t 14,21 

INTSTALL 

FC-3605 

CALLED 

2 

INTSTALL 

FC-3610 

CALLED 

3 

INTSTALL 

FC-3640 

CALLED 

3,5 

INTSTALL 

FC-3740 

CALLED 

22 

INTSTALL 

FC-3760 

CALLED 

6 

INTSTALL 

FC-3780 

CALLED 

4,5,6 

INTSTALL 

FC-3900 

CALLED 

19 

INTWAKE 

FC-3350 

ENTRY 

18 

INTWAKE 

FC-3355 

CALLED 

40 

INTWAKE 

FC-3605 

CALLED 

3 

INTWAKEU 

FC-3120 

CALLED 

13 

INTWAKEU 

FC-3350 

ENTRY 

20 

INTWAKEO 

FC-3350 

ENTRY 

18 

INTWAKEO 

FC-3600 

CALLED 

14 

INTWAKEO 

FC-3640 

CALLED 

6 

INTYPFLG 

FC-3350 

S-13 

C-3,5 

INTYPFLG 

FC-3600 

C-12, 

INTYPFLG 

FC-3610 

C-3 

INTYPFLG 

FC-3640 

C-4 

INTYPFLG 

FC-3740 

S-22 

C-22 

INTYPFLG 

FC-3760 

C-7 

INTYPFLG 

FC-3900 

S-20 

INVFLAG 

FC-3840 

CALLED 

20 

IRIGX 

FC-3230 

ENTRY 

5 

T-19,23 
T-3A, 35, 38,43 


T-17 


T-15 


13-11 


IRIGY 

IRIGZ 

I SITAUTO 

ISITAUTO 

ISWCALL 

ISWRETRN 

I TERATOR 

ITSWICH 

ITSWICH 

ITURNON 

JOBSLEEP 

JOBSLEEP 

JOBWAKE 

JOBWAKE 

JOBWAKE 

JTLST 

JTLST 

JUSTTRIM 

KALCMAN3 

KALCMAN3 

KEPLERN 

KEPLERN 

KEPPREP 

KEPPREP 

KEYRUPTl 

KILLTASK 

KILLTASK 

LALOTORV 

LALOTORV 

LAMBERT 

LAMBERT 

LAMENTER 

LAMPTEST 

LANDISP 

LANDJUNK 

LASTBI AS 

LASTBI AS 

LAT-LONG 

LAT-LONG 

LAT-LONG 

LAT-LONG 

LEGAL? 

LEMCONIC 

LEMCONIC 

LEMCONIC 

LEMCONIC 

LEMCONIC 

LEMPREC 

LEMPREC 

LEMPREC 

LEMPREC 

LEMPREC 

LEMPREC 

LEMPREC 

LEMPREC 

LEMPREC 

LEMPREC 


FC-3230 

ENTRY 

7 

FC-3230 

ENTRY 

8 

FC-3420 

ENTRY 

11 

FC-3430 

CALLED 

9 

FC-3060 

ENTRY 

6 

FC-3060 

ENTRY 

6 

FC-3360 

FC-3730 

ENTRY 

S-4 

37 

FC-3740 

S-4 

C 

FC-3210 

ENTRY 

29 

FC-3050 

CALLED 

8 

FC-3220 

CALLED 

23,35 

FC-3050 

CALLED 

8 

FC-3220 

CALLED 

24,34 

FC-3350 

CALLED 

19 

FC-3440 

ENTRY 

32 

FC-3470 

CALLED 

70 

FC-3520 

ENTRY 

41 

FC-3A20 

CALLED 

4 

FC-3A30 

ENTRY 

5 

FC-3355 

CALLED 

32 

FC-3360 

ENTRY 

3 

FC-3350 

CALLED 

16 

FC-3355 

ENTRY 

30 

FC-31 10 

ENTRY 

4 

FC-3600 

CALLED 

23,84,85 

FC-3840 

CALLED 

18,20 

FC-3330 

ENTRY 

7 

FC-3510 

CALLED 

16 

FC-3360 

ENTRY 

11 

FC-3760 

CALLED 

6 

FC-3360 

ENTRY 

36 

FC-3210 

ENTRY 

28 

FC-3930 

ENTRY 

6 

FC-3910 

ENTRY 

2 

FC-3230 

ENTRY 

15 

FC-3850 

CALLED 

2 

FC-3330 

ENTRY 

2 

FC-3510 

CALLED 

14 

FC-3610 

CALLED 

5 

FC-3910 

CALLED 

2 

FC-3970 

ENTRY 

15 

FC-3350 

ENTRY 

13 

FC-3400 

CALLED 

3 

FC-3435 

CALLED 

3 

FC-3510 

CALLED 

13 

FC-3600 

CALLED 

22 

FC-3250 

CALLED 

2 

FC-3350 

ENTRY 

12 

FC-3510 

CALLED 

30 

FC-3520 

CALLED 

5 

FC-3710 

CALLED 

2 

FC-3760 

CALLED 

15 

FC-3780 

CALLED 

3,4 

FC-3800 

CALLED 

6 

FC-3900 

CALLED 

3 

FC-3950 

CALLED 

5 

T-5tll 


4 rk  4 r\ 


LEMSTORE 

LEMVEC 

LETABORT 

LETABORT 

•LETABORT 
LETABORT 
LETABORT 
LIMI TSUB 
L IMITSUB 
LINUS 
LMOONFLG 
LMOONFLG 
LMOONFLG 
LMOONFLG 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 
LOADTIME 

•LOCSAM 
LOCSAM 
LODSAMPT 
LOGSUB 
LOKONSW 
LONGCALL 
LOSCMFLG 
LOSCMFLG 
LPOS2FLG 
LRALT 
LRBYPASS 
LRBYPASS 
LRBYPASS 
LRBYPASS 
LRBYPASS 
LRBYPASS 
LRBYPASS 
LRHJOB 
LRHTASK 
LR  INH 
LRPOSFLG 
LRPOS2 
LRVELFLG 
LSORIENT 
LSORI ENT 

•LSPOS 
LSPOS 


FC-3760 

ENTRY 

15 

FC-3605 

ENTRY 

3 

FC-3840 

S-10 

FC-3910 

C-2 

FC-3930 

T-4 

FC-3950 

C-41 

FC-3970 

C-13 

T-15 

FC-3935 

CALLED 

15 

FC-3960 

ENTRY 

25 

FC-3420 

CALLED 

10 

FC-3350 

S-9 

C-9 

T-10 

FC-3600 

T-73 

FC-3605 

T-2 

FC-3770 

T-11 

FC-3150 

ENTRY 

2 

FC-3250 

CALLED 

2 

FC-3350 

CALLED 

2t26, 

27 

FC-3355 

CALLED 

37 

FC-3400 

CALLED 

3 

FC-3435 

CALLED 

3 

FC-3510 

CALLED 

22»44 

FC-3520 

CALLED 

4t26, 

44,46,48 

FC-3600 

CALLED 

16,20 

,24,31,50,84,85 

FC-3610 

CALLED 

2 

FC-3750 

CALLED 

2 

FC-3770 

CALLED 

6 

FC-3780 

CALLED 

3,4 

FC-3790 

CALLED 

3,7 

FC-3950 

CALLED 

36,42 

FC-3970 

CALLED 

7 

FC-3500 

CALLED 

13 

FC-3510 

ENTRY 

30 

FC-3110 

CALLED 

4,6 

FC-3950 

ENTRY 

50 

FC-3600 

S-30,31 

C-30,85 

T-42 

FC-3040 

ENTRY 

19 

FC-3600 

S-49 

C-15, 31, 32,43 

,84  T-22 

FC-3980 

S-3,5 

C-2, 3, 10 

T-3,5 

FC-3935 

S-26 

FC-3930 

CALLED 

6 

FC-3 140 

S-16 

FC-3280 

T-8 

FC-3850 

T-4 

FC-3900 

C-2 

FC-3930 

T-5 

FC-3935 

T-6,9 

FC-3970 

S-4 

FC-3930 

ENTRY 

6 

FC-3930 

ENTRY 

5 

FC-3935 

S-2 

C-3,4, 10 

T-17,24 

FC-3935 

S-7 

FC-3935 

ENTRY 

7 

FC-3600 

C-63 

T-94 

FC-3510 

ENTRY 

6 

FC-3520 

CALLED 

5 

FC-3355 

CALLED 

7,12 

FC-3435 

CALLED 

4 

13-13 


LSPOS 

FC-3510 

CALLED 

30 

LIJNAFLAG 

FC-3330 

T—  2,8, 10, 

LUNAFLAG 

FC-3510 

S-5 

LUNAFLAG 

FC-3520 

S-44 

LUNAFLAG 

FC-3610 

S-5 

C-4 

LUNAFLAG 

FC-3910 

S-2 

LUNLAND 

FC-3940 

ENTRY 

2 

LUNPOS 

FC-3355 

CALLED 

6 

MAKECADR 

FC-3050 

CALLED 

8 

MAKECADR 

FC-3060 

ENTRY 

4 

MAKECADR 

FC-3220 

CALLED 

35 

MAKECADR 

FC-3420 

CALLED 

2 

MAKECADR 

FC-3510 

CALLED 

34 

MAKECADR 

FC-3600 

CALLED 

24 

MARKRUPT 

FC-3530 

ENTRY 

18 

MARKTYPE 

FC-3530 

ENTRY 

21 

MATMOVE 

FC-3500 

CALLED 

8 

MATMOVE 

FC-3510 

ENTRY 

50 

MATMOVE 

FC-3520 

CALLED 

3,37 

,^2 

MAXCHK 

FC-3710 

CALLED 

3,4 

MFREF 

FC-3520 

ENTRY 

48 

MGLVFLAG 

FC-3760 

S-12 

C-11 

MI DAVFLG 

FC-3350 

S-27 

C-28 

MIDAVFLG 

FC-3355 

T-33 

MIDFLAG 

FC-3355 

S-2 

C-2 

T-5, 11 ,41 

MIDIFLAG 

FC-3355 

T-37 

MIDTOAVl 

FC-3350 

ENTRY 

26 

MIDTOAVl 

FC-3840 

CALLED 

3 

MIDTOAV2 

FC-3350 

ENTRY 

26 

MIDTOAV2 

FC-3830 

CALLED 

2 

MIDIFLAG 

FC-3350 

S-26 

C-26 

MINIMP 

FC-3440 

ENTRY 

37 

MINIRECT 

FC-3355 

ENTRY 

43 

MINIRECT 

FC-3600 

CALLED 

14 

MINIRECT 

FC-3640 

CALLED 

5 

MKREJ 

FC-3530 

ENTRY 

25 

MKRELEAS 

FC-3530 

ENTRY 

14 

MODEEXIT 

FC-3220 

ENTRY 

36 

MOONFLAG 

FC-3140 

T-17 

MOONFLAG 

FC-3350 

S-8, 11, 

,21 

C-8,21 

T-7,9, 14 

MOONFLAG 

FC-3355 

S-44 

C-44 

T-6, 12, 14 

20,32,40, 

41,44 

MOONFLAG 

FC-3610 

S-3 

C-3 

MOONFLAG 

FC-3640 

S-7 

C-7 

MOONFLAG 

FC-3740 

S-23 

C-23 

MOONFLAG 

FC-3760 

S-7 

C-7 

MOONFLAG 

FC-3900 

S-20 

MPACVBUF 

FC-3320 

CALLED 

9,10 

MPACVBUF 

FC-3980 

CALLED 

7 

MR.KLEAN 

FC-3140 

CALLED 

15 

MUNFLAG 

FC-3210 

T-14 

MUNFLAG 

FC-3840 

T-3 

MUNFLAG 

FC-3850 

C-14 

T-4, 8, 11 

MUNFLAG 

FC-3900 

S-2 

MUNFLAG 

FC-3950 

S-3 

MUNGRAV 

FC-3840 

CALLED 

3 

MUNGRAV 

FC-3900 

CALLED 

4 

MUNGRAV 

FC-3935 

CALLED 

16 

MUNGRAV 

FC-3950 

CALLED 

6 

MUNRETRN 

FC-3935 

ENTRY 

9 

MXM3 

FC-3420 

CALLED 

7,8 

MXM3 

FC-3^30 

ENTRY 

23 

NBDONLY 

FC-3040 

CALLED 

18 

NBDONLY 

FC-3230 

ENTRY 

14 

NBSM 

FC-3320 

ENTRY 

8 

NB2CDUSP 

FC-3960 

ENTRY 

27 

NCOARSE 

FC-3500 

ENTRY 

4 

NCOARSE 

FC-3510 

CALLED 

11,21 

NCOARSE 

FC-3520 

CALLED 

38 

NDELVFLG 

FC-3720 

S-10 

NEEDIER 

FC-3440 

ENTRY 

25 

NEEDLFLG 

FC-3A40 

S-38 

C-38 

T-21 

NEED2FLG 

FC-3AAO 

T-21 

NEWIFLG 

FC-3350 

S-1A,39 

NEWIFLG 

FC-3355 

C-5 

T-5 

NEWMODEA 

FC-3010 

CALLED 

33 

NEWMODEX 

FC-3120 

CALLED 

3,13 

NEWMODEX 

FC-3900 

CALLED 

6 

NEWMODEX 

FC-39A0 

CALLED 

3 

NEWSTATE 

FC-3360 

ENTRY 

36 

NEXTCOL 

FC-3355 

ENTRY 

36 

NJETSFLG 

FC-3AAO 

S-6 

C-6 

NJETSFLG 

FC-3810 

T-2 

NOATTOFF 

FC-3210 

CALLED 

39,41 

NOATTOFF 

FC-3220 

ENTRY 

38 

NODOFLAG 

FC-31A0 

C-14 

NODOFLAG 

FC-3250 

S-2 

C-3 

NODOFLAG 

FC-3350 

S-3 

C-6 

NODOFLAG 

FC-3640 

S-2 

C-6 

NOLRREAD 

FC-3850 

T-20 

NOLRREAD 

FC-3930 

T-5 

NOLRREAD 

FC-3935 

S-27 

C-28 

T-10 

NOMINIMP 

FC-3AAO 

ENTRY 

37 

NORMSW 

FC-3360 

C-34 

T-35 

NORMSW 

FC-3760 

S-5 

C-4 

NORMSW 

FC-3800 

T-6 

NORMSW 

FC-3810 

T-7, 10, 

NORMUNI T 

FC-3150 

ENTRY 

12 

NORMUNIT 

FC-3960 

CALLED 

5,6 

NORMUNXl 

FC-3150 

ENTRY 

12 

NORRGMON 

FC-3210 

ENTRY 

17 

NORRMON 

FC-3210 

T-14 

NORRMON 

FC-3600 

S-28,85 

C-15, 28, 31 

N0R29FLG 

FC-3850 

S-IA 

NOR29FLG 

FC-3935 

T-6 

NOR29FLG 

FC-3980 

T-11 

NOTERFLG 

FC-3900 

C-2 

NOTERFLG 

FC-3935 

S-5 

C-23 

NOTERFLG 

FC-39A0 

S-5 

NOTHROTL 

FC-3800 

C-3 

NOTHROTL 

FC-38AO 

S-21,22 

C-21 

T-9 

NOTHROTL 

FC-3900 

C-2 

NOTIME 

FC-3355 

CALLED 

37 

13-15 


NOUPFLAG 

FC-3600 

S-10 

T-56 

NnUPFLAG 

EC-3605 

C-3 

N051 IFLG 

FC-3935 

S-27 

T-10 

NTARGFLG 

FC-3740 

S-25 

T-25 

NVSUB 

FC-3100 

CALLED 

3 

N89DISP 

FC-3510 

ENTRY 

14 

N89DISP 

EC-3520 

CALLED 

45 

OANB 

FC-3510 

CALLED 

44 

OANB 

FC-3520 

CALLED 

27 

OANB 

FC-3530 

ENTRY 

31 

OCCOS 

FC-3510 

ENTRY 

31 

OCCULT 

FC-3510 

ENTRY 

41 

OLDESFLG 

FC-3980 

S-3 

C-2 

T-3 

0NEST02S 

FC-3960 

ENTRY 

38 

OPTSTALL 

FC-3510 

CALLED 

25 

ORBWFLAG 

FC-3350 

C-21 

T-23 

ORBWELAG 

FC-3355 

C-38 

ORDERSW 

FC-3360 

T-37,38 

ORIGCHNG 

FC-3355 

ENTRY 

44 

OTHPREC 

FC-36A0 

CALLED 

3 

OTHPREC 

FC-3770 

CALLED 

7 

OTHPREC 

FC-3790 

CALLED 

4 

OURRCFLG 

FC-3470 

S-36 

C-27 

T-26,28 

OUTSNUFF 

FC-3440 

ENTRY 

39 

OVERSUB 

FC-3470 

CALLED 

8,9, 

10, 13,14, 15,16 

OVERSUB2 

FC-3440 

ENTRY 

35 

PARAM 

FC-3360 

ENTRY 

34 

PASSIVE 

FC-3720 

CALLED 

4 

PASSIVE 

FC-3730 

CALLED 

2 

PASSIVE 

FC-3740 

CALLED 

16 

PASTIT 

FC-3530 

ENTRY 

9 

PAXIS 

FC-3440 

CALLED 

12 

PAX  IS 

FC-3470 

ENTRY 

2 

PDSPFLAG 

FC-3100 

T-3 

PDSPFLAG 

FC-3420 

S-10 

T-10, 11 

PDSPELAG 

FC-3600 

S-26 

C-26 

PER  I APO 

FC-3720 

CALLED 

14 

PERIAPO 

FC-3760 

ENTRY 

13 

PERIAPOl 

FC-3710 

CALLED 

3 

PERI APOl 

FC-3720 

CALLED 

17 

PERIAPOl 

FC-3740 

CALLED 

7 

PERIAPOl 

FC-3760 

ENTRY 

13 

PFAILOK 

FC-3210 

CALLED 

44 

PEAILOK 

FC-3220 

ENTRY 

18 

PFLITEDB 

FC-3440 

ENTRY 

19 

PELITEDB 

FC-3800 

CALLED 

3 

PFLITEDB 

FC-3900 

CALLED 

22 

PFRATFLG 

FC-3510 

C-12,21, 29 

T-2 

PFRATFLG 

FC-3800 

S-7 

P ICAPAR 

FC-3510 

ENTRY 

34 

PINBRNCH 

FC-3080 

CALLED 

15 

P INBRMCH 

FC-3120 

CALLED 

2 

PINBRNCH 

FC-3440 

CALLED 

37 

PINBRNCH 

FC-3970 

CALLED 

15 

PIPASR 

FC-3850 

ENTRY 

6 

PIPFAIL 

FC-3210 

ENTRY 

49 

PI  PFREE 

FC-3220 

ENTRY 

20 

PIPFREE 
PIPSRINE 
PIPUSE 
PI PUSEl 

•PJETSLEC 
PLANET 
PLANET 
PLANET 
PLITEDB 
POLY 
POLY 
POODOO 
POODOO 
POODOO 
POODOOl 
POODOOl 
POOHFLAG 
POOHFLAG 
POSTJUMP 
POWRSERS 
PRECIFLG 
PRECIFLG 
PRECSET 
PRECSET 
PRECSET 
PRECSET 
PRERADAR 
PREREAD 
PRIOCHNG 
PR  lOCHNG 

•PRIOCHNG 
PRIOCHNG 
PRIOCHNG 
PRIOCHNG 
PRIOCHNG 
PRIOCHNG 
PRIOCHNG 
PRIOCHNG 
PRIODFLG 
PR lODSPR 
PRIOLARM 
PROCKEY 
PR0G20 
PROG21 
PROG 2 2 
PROG25 
PROG52 
PRONVFLG 
PSTHIGAT 
PTOACSM 
PTOALEM 
PTOALEM 
PULSEFLG 
PULSEFLG 
PULSEFLG 

•PULSEFLG 
PULSEFLG 


FC-3850 

CALLED 

14 

FC-3520 

CALLED 

17»  18 

FC-3220 

ENTRY 

19 

FC-3220 

ENTRY 

19 

FC-3470 

ENTRY 

40 

FC-3500 

ENTRY 

11 

FC-3510 

CALLED 

26,27t 

45 

FC-3520 

CALLED 

26t32» 

33 

FC-3950 

CALLED 

11 

FC-3360 

CALLED 

26,29 

FC-3950 

CALLED 

50 

FC-3140 

ENTRY 

5 

FC-3355 

CALLED 

23 

FC-3530 

CALLED 

2 

FC-3040 

CALLED 

8,19 

FC-3140 

ENTRY 

7 

FC-3350 

FC-3355 

FC-3060 

S-3 

ENTRY 

3 

FC-3900 

CALLED 

43 

FC-3350 

S-5t  12 

C-4 

FC-3355 

FC-3720 

CALLED 

2,10 

C-40 

FC-3740 

CALLED 

5 

FC-3750 

CALLED 

2 

FC-3760 

ENTRY 

15 

FC-3850 

CALLED 

20 

FC-3850 

ENTRY 

2 

FC-3240 

CALLED 

2 

FC-3420 

CALLED 

10 

FC-3435 

CALLED 

7 

FC-3440 

CALLED 

2 

FC-3600 

CALLED 

3,17 

FC-3770 

CALLED 

2 

FC-3780 

CALLED 

6 

FC-3900 

CALLED 

8 

FC-3935 

CALLED 

23 

FC-3970 

CALLED 

12 

FC-3100 

FC-3140 

CALLED 

12 

FC-31AO 

ENTRY 

3 

FC-3210 

CALLED 

6 

FC-3600 

ENTRY 

11 

FC-3610 

ENTRY 

2 

FC-3600 

ENTRY 

11 

FC-3620 

ENTRY 

2 

FC-3510 

ENTRY 

2 

FC-3100 

FC-3935 

FC-3350 

S-27 

ENTRY 

8 

FC-3350 

ENTRY 

10 

FC-3605 

CALLED 

2 

FC-3440 

S-38 

C-38 

FC-3470 

FC-3840 

FC-3910 

FC-3970 

S-2 

C-10 

C-3 

T-A 


T-4 


T-3 


T-3 


T-22t50 


13-17 


PULSEIMU 

FC-3150 

ENTRY 

11 

P12INIT 

FC-3970 

CALLED 

13 

P12LM 

FC-3950 

ENTRY 

2 

P12NIT 

FC-3950 

ENTRY 

44 

• 

P12RET 

FC-3950 

ENTRY 

10 

P20FLG0N 

FC-3730 

CALLED 

1 

P20FLG0N 

FC-3750 

CALLED 

2 

P21FLAG 

FC-3610 

S-4 

T-3 

P25FLAG 

FC-3600 

C-2 

T-2t24 

P25FLAG 

FC-3620 

S-2 

T-3 

P25FLAG 

FC-3900 

C-2 

P3X0RP7X 

FC-3720 

ENTRY 

24 

P30 

FC-3700 

ENTRY 

2 

P31 

FC-3710 

ENTRY 

2 

P32 

FC-3720 

ENTRY 

2 

P33 

FC-3730 

ENTRY 

1 

P34 

FC-3740 

ENTRY 

2 

P35 

FC-3750 

ENTRY 

2 

PAOAUTO 

FC-3840 

ENTRY 

11 

P40AUT0 

FC-3850 

CALLED 

1 1 

P40AUT0 

FC-3970 

CALLED 

11 

P40LM 

FC-3800 

ENTRY 

2 

P40SXT4 

FC-3800 

ENTRY 

4 

P40SXT4 

FC-3810 

CALLED 

4 

P41LM 

FC-3810 

ENTRY 

2 

P42LM 

FC-3820 

ENTRY 

2 

P47LM 

FC-3830 

ENTRY 

I 

P51 

FC-3500 

ENTRY 

2 

P57 

FC-3520 

ENTRY 

2 

P570PT0 

FC-3520 

ENTRY 

21 

P570PT1 

FC-3520 

ENTRY 

23 

P570PT2 

FC-3520 

ENTRY 

25 

P570PT3 

FC-3520 

ENTRY 

24 

P63DISPS 

FC-3900 

ENTRY 

27 

P63LM 

FC-3900 

ENTRY 

2 

P66PR0FL 

FC-3900 

C-27 

00 

1 

P66PR0FL 

FC-3940 

S-4 

P70 

FC-3970 

ENTRY 

2 

P70A 

FC-3930 

CALLED 

5 

P70A 

FC-3970 

ENTRY 

2 

P70P71FL 

FC-3970 

S-6 

P7071FLG 

FC-3950 

T-16t24»32 

P71 

FC-3970 

ENTRY 

2 

P71A 

FC-3930 

CALLED 

4 

P71A 

FC-3970 

ENTRY 

2 

P72 

FC-3720 

ENTRY 

2 

P73 

FC-3730 

ENTRY 

1 

P74 

FC-3740 

ENTRY 

2 

P75 

FC-3750 

ENTRY 

2 

P76 

FC-3640 

ENTRY 

2 

OERRCALC 

FC-3440 

CALLED 

23 

ORAX  I S 

FC-3470 

ENTRY 

43 

OTPROLOG 

FC-3320 

ENTRY 

5 

OUICTRIG 

FC-3320 

ENTRY 

6 

OUICTRIG 

FC-3850 

CALLED 

10 

• 

OUICTRIG 

FC-3935 

CALLED 

18 

OUICTRIG 

FC-3960 

CALLED 

6 

OUICTRIG 

FC-3980 

CALLED 

7 

OUIKDSP 

FC-3210 

ENTRY 

60 

OUITFLAG 

FC-3350 

C-2 

T-2 

OUITFLAG 

FC-3355 

T-2 

R-TO-RP 

FC-3330 

CALLED 

3 

R-TO-RP 

FC-3355 

CALLED 

16 

RADSTALL 

FC-3220 

ENTRY 

3A 

RADSTALL 

FC-3280 

CALLED 

6 

RADSTALL 

FC-3600 

CALLED 

30»31»59 

RADSTALL 

FC-3930 

CALLED 

6 

RADSTALL 

FC-3935 

CALLED 

5,27 

RADSTALL 

FC-3980 

CALLED 

4,11,12 

RCDUFAIL 

FC-3600 

T-66, 68,71 

RCDUOFLG 

FC-3600 

T-18,54,71 

RCSMONIT 

FC-3210 

ENTRY 

8 

RDCDUS 

FC-3510 

ENTRY 

9 

RDRUSFCK 

FC-3935 

ENTRY 

6 

READCDUK 

FC-3420 

CALLED 

5 

READCDUK 

FC-3430 

ENTRY 

23 

READRFLG 

FC-3980 

C-12 

T-10 

READVEL 

FC-3935 

S-22 

RECTIFY 

FC-3350 

CALLED 

14,  16 

RECTIFY 

FC-3355 

ENTRY 

43 

RECTOUT 

FC-3355 

ENTRY 

40 

REINTFLG 

FC-3120 

S-8 

RE  INTFLG 

FC-3355 

S-3A»39 

REDFLAG 

FC-3900 

S-29 

C-2, 7, 28 

T-9, 28 

REDFLAG 

FC-39A0 

C-5 

REFMF 

FC-3520 

ENTRY 

46 

REFMF 

FC-3910 

CALLED 

3 

REFSMFLG 

FC-3220 

C-8 

T-33 

REFSMFLG 

FC-3250 

T-2 

REFSMFLG 

FC-3500 

S-8 

REFSMFLG 

FC-3510 

S-12»21 

C-19 

REFSMFLG 

FC-3520 

S-43 

C-11 

T-6,7,25 

REFSMFLG 

FC-3720 

T-7 

REINTFLG 

FC-3120 

S-8 

REINTFLG 

FC-31A0 

C-14 

REINTFLG 

FC-3350 

S-17 

C-19 

T-17, 18 

REINTFLG 

FC-3355 

S-3A,39 

REINTFLG 

FC-3640 

S-5 

RELDSP 

FC-3010 

CALLED 

27,33 

RELDSP 

FC-3080 

CALLED 

15 

RELDSP 

FC-3970 

CALLED 

15 

REL INUS 

FC-3420 

ENTRY 

10 

REMARK 

FC-3530 

ENTRY 

27 

REMODE 

FC-3600 

ENTRY 

45 

REMODFLG 

FC-3600 

S-33 

C-46 

T-39,47,50 

REMODFLG 

FC-3980 

S-2 

RENDWFLG 

FC-3350 

C-21 

T-4,5,23 

RENDWFLG 

FC-3355 

C-38 

RENDWFLG 

FC-3600 

S-81 

C-5, 10 

T-36,43,47 

RENDWFLG 

FC-3950 

C-12 

RENDZFLG 

FC-3950 

C-3 

REPOSMON 

FC-3600 

T-36,43,47 

REPOSMON 

FC-3980 

S-2 

C-4 

RESTORDB 

FC-3440 

ENTRY 

18 

RESTORDB 

FC-3600 

CALLED 

3t26 

RESTORDB 

FC-3800 

CALLED 

4 

RESTORDB 

FC-3950 

CALLED 

41 

RESUME 

FC-3110 

CALLED 

8,9,10 

RGOODEND 

FC-3935 

CALLED 

7 

RHCSFLG 

FC-3440 

S-7 

RNDREFDR 

FC-3210 

CALLED 

34,36 

RNDREFOR 

FC-3220 

ENTRY 

8 

RNDVZFLG 

FC-3210 

C-36 

T-12 

RNDVZFLG 

FC-3420 

T-10 

RNDVZFLG 

FC-3600 

S-15 

C-2 

T-2, 19,23, 

RNDVZFLG 

FC-3620 

C-2 

RNDVZFLG 

FC-3900 

C-2 

RNGEDATA 

FC-3930 

S-7 

RNGEDATA 

FC-3935 

C-12 

T-13 

RNGSCFLG 

FC-3600 

S-90 

C-59 

T-60 

RNGSCFLG 

FC-3930 

C-7 

RNGSCFLG 

FC-3980 

C-12 

T-12 

RODFLAG 

FC-3940 

S-4 

T-3 

ROT-TOUV 

FC-3490 

CALLED 

15 

ROTATE 

FC-3720 

ENTRY 

10 

ROTFLAG 

FC-3950 

C-29,32 

T-30,31 

RPCOMPl 

FC-3950 

ENTRY 

49 

RPCOMP2 

FC-3950 

ENTRY 

49 

RPOFLAG 

FC-3350 

S-\^ 

RP-TO-R 

FC-3330 

CALLED 

8 

RP-TO-R 

FC-3350 

CALLED 

11 

RP-TO-R 

FC-3510 

CALLED 

5 

RP-TO-R 

FC-3520 

CALLED 

48,49 

RP-TO-R 

FC-3900 

CALLED 

3 

RP-TO-R 

FC-3950 

CALLED 

42 

RPOFLAG 

FC-3355 

S-23 

C-14 

T-6,7 

RRAUTCHK 

FC-3210 

ENTRY 

10 

RRCDUCHK 

FC-3210 

ENTRY 

12 

RRDESEND 

FC-3600 

ENTRY 

2 

RRGIMON 

FC-3210 

ENTRY 

14 

RRL IMCHK 

FC-3210 

CALLED 

16 

RRNB 

FC-3600 

ENTRY 

53 

RRNBSW 

FC-3600 

S-33 

C-23,35 

0 

1 

1— 

RROUT 

FC-3600 

ENTRY 

48 

RROUT 

FC-3980 

CALLED 

9 

RRRANGE 

FC-3600 

ENTRY 

62 

RRRANGE 

FC-3980 

CALLED 

11 

RRRDOT 

FC-3600 

ENTRY 

62 

RRRDOT 

FC-3980 

CALLED 

11 

RRRSFLAG 

FC-3600 

S-59 

C-59 

RRSONLY 

FC-3210 

CALLED 

23 

RRSONLY 

FC-3600 

ENTRY 

47 

RRTONLY 

FC-3210 

CALLED 

23 

RRTONL Y 

FC-3600 

ENTRY 

47 

RRTONLY 

FC-3980 

CALLED 

4 

RRTURNON 

FC-3210 

ENTRY 

18 

RRZEROSB 

FC-3210 

ENTRY 

19 

RVSW 

FC-3360 

T-23 

RVSW 

FC-3600 

C-13 

RVSW 

FC-3720 

S-14, 15 

RVSW 

FC-3730 

C-8 

RVSW 
R-TO-RP 
R-TO-RP 
R02B0TH 
. R02B0TH 
f R02B0TH 
R02B0TH 
R02B0TH 
R02B0TH 
R02BOTH 
R02B0TH 
R02B0TH 
R02B0TH 
R02B0TH 
R04 

R04FLAG 

ROAFLAG 

R10,R11 

RlOtRll 

RICFLAG 

RIOFLAG 

RIOFLAG 

R12RDFLG 

R29 

R31CALL 

R33 

R36 

R51 

R51P63 

R52 

R5^ 

R55 

R59 

R60LEM 

R60LEM 

R60LEM 

R60LEM 

R60LEM 

R60LEM 

R60LEM 

R61FLAG 

R62DISP 

R65LEM 

R77 

R77END 

R77FLAG 

R77FLAG 

R77FLAG 

SBANDANT 

SCNDSOL 

SELECTMU 

SELECTMU 

SELECTMU 

SELECTMU 

SERVICER 

SETCOARS 

SETCOARS 


FC-3740 

FC-3520 

FC-3910 

FC-3220 

FC-3^00 

FC-3510 

FC-3600 

FC-3620 

FC-3800 

FC-3810 

FC-3820 

FC-3830 

FC-3900 

FC-3950 

FC-3280 

FC-3280 

FC-3600 

FC-3850 

FC-3930 

FC-3930 

FC-3950 

FC-3970 

FC-3935 

FC-3980 

FC-3780 

FC-32AO 

FC-3790 

FC-3510 

FC-3900 

FC-3510 

FC-3520 

FC-3510 

FC-3520 

FC-3400 

FC-3410 

FC-3420 

FC-3510 

FC-3600 

FC-3800 

FC-3900 

FC-3600 

FC-3410 

FC-3620 

FC-3280 

FC-3280 

FC-3280 

FC-3600 

FC-3935 

FC-3A35 

FC-3720 

FC-3720 

FC-3730 

FC-3750 

FC-3760 

FC-3850 

FC-3210 

FC-3220 


S-6 


CALLED 

45,47 

CALLED 

3 

ENTRY 

33 

CALLED 

3 

CALLED 

2 

CALLED 

15 

CALLED 

2 

CALLED 

2 

CALLED 

2 

CALLED 

2 

CALLED 

2 

CALLED 

2 

CALLED 

2 

ENTRY 

S-2 

2 

C-5 

C-15 

T-2,3 

CALLED 

9 

ENTRY 

2 

T-11,12, 16 

S-3 

S-4 

T-20 

ENTRY 

2 

ENTRY 

2 

ENTRY 

2 

ENTRY 

3 

ENTRY 

22 

CALLED 

22 

ENTRY 

42 

CALLED 

34 

ENTRY 

48 

ENTRY 

25 

CALLED 

4 

CALLED 

2 

ENTRY 

2 

CALLED 

45 

CALLED 

26 

CALLED 

4 

CALLED 

23 

S-24 

ENTRY 

2 

0 

1 

T-27 

CALLED 

3 

ENTRY 

2 

ENTRY 

S-2 

5 

C-5 

T-6,8 

T-65 

T-6 

ENTRY 

3 

ENTRY 

22 

CALLED 

3 

CALLED  1 
CALLED  2 
ENTRY  14 
ENTRY  9 
CALLED  54 
ENTRY  7 
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\ 


SETISSW 

FC-3210 

ENTRY 

31 

SETISSW 

FC-3220 

CALLED 

5t 17t 18, 19,20 

SETMINDB 

FC-3600 

CALLED 

26 

SETMINDB 

FC-3800 

CALLED 

4 

SETMINDB 

FC-3810 

CALLED 

2 

SETMINDB 

FC-3950 

CALLED 

40 

SETRRECR 

FC-3600 

CALLED 

36 

SETRRECR 

FC-3980 

CALLED 

2 

SETTRKF 

FC-3210 

CALLED 

13,21 

SGNAGREE 

FC-3150 

ENTRY 

3 

SGNAGREE 

FC-3355 

CALLED 

3 

SGNAGREE 

FC-3510 

CALLED 

46 

SHIFTRl 

FC-3710 

CALLED 

3,4 

SHIFTRl 

FC-3760 

ENTRY 

10 

SHORTMP 

FC-3950 

CALLED 

51 

SHORTMP2 

FC-3935 

CALLED 

19 

SIGNMPAC 

FC-3150 

ENTRY 

14 

SIGNMPAC 

FC-3355 

CALLED 

4 

SIGNMPAC 

FC-3370 

CALLED 

9 

SIGNMPAC 

FC-3430 

CALLED 

7,16, 17,18,  19 

SIGNMPAC 

FC-3935 

CALLED 

14 

SINE 

FC-3320 

CALLED 

4 

SLAPl 

FC-3010 

ENTRY 

2 

SLOPESW 

FC-3360 

S-12»14  C-37 

T-19,37 

SNUFFBI T 

FC-3470 

T-63 

SNUFFER 

FC-3440 

S-40 

C-40 

SNUFFOUT 

FC-3440 

ENTRY 

39 

SOLNSW 

FC-3360 

S-14,20,22»24  C-12tl5,25 

SPARCSIN 

FC-3960 

ENTRY 

37 

SPCOS 

FC-3160 

ENTRY 

2 

SPCOS 

FC-3210 

CALLED 

58,59 

SPCOS 

FC-3320 

CALLED 

7 

SPSIN 

FC-3160 

ENTRY 

2 

SPSIN 

FC-3210 

CALLED 

57,58 

SPSIN 

FC-3320 

CALLED 

6 

SPSRCS 

FC-3470 

ENTRY 

80 

SRCHOPTN 

FC-3600 

S-49 

C-15 

T-18,43,49 

SR30,  1 

FC-3770 

ENTRY 

15 

STARTDAP 

FC-3440 

ENTRY 

14 

STATEFLG 

FC-3140 

C-14 

STATEFLG 

FC-3350 

S-3,5t24  C-3 

STATEFLG 

FC-3355 

S-37 

C-2,40 

T-39 

STATEFLG 

FC-3600 

S-20,72 

,73,80 

STATEINT 

FC-3350 

ENTRY 

2 

STATIMTl 

FC-3350 

ENTRY 

2 

STCLOKl 

FC-3840 

ENTRY 

12 

STCLOK2 

FC-3900 

CALLED 

21 

STEERING 

FC-3820 

ENTRY 

2 

STEERSW 

FC-3810 

C-9 

T-9 

STEERSW 

FC-3850 

S-12 

C-1 1 

STEERSW 

FC-3900 

T-25 

STOPRATE 

FC-3430 

ENTRY 

14 

STOPRATE 

FC-3600 

CALLED 

3 

STOPRATE 

FC-3820 

CALLED 

2 

STOPRATE 

FC-3850 

CALLED 

13 

STOPRATE 

FC-3900 

CALLED 

26,46,49 

STOPRATE 

FC-3950 

CALLED 

35 

1 O O o 


STOPRATE 

FC-3960 

CALLED 

22 

STRTGYRO 

FC-3220 

ENTRY 

24 

SUBDI VDE 

FC-3470 

CALLED 

8,9,10 

SUBDVDE 

FC-3440 

ENTRY 

36 

^^UPOACAL 

FC-3060 

ENTRY 

4 

5Rupersw 

FC-3060 

ENTRY 

7 

SURFDI SP 

FC-3520 

ENTRY 

42 

SURFFLAG 

FC-3350 

SURFFLAG 

FC-3530 

SURFFLAG 

FC-3600 

SURFFLAG 

FC-3610 

SURFFLAG 

FC-3850 

SURFFLAG 

FC-3910 

S-2 

SURFFLAG 

FC-3950 

SURF JOB 

FC-3530 

ENTRY 

27 

SURFLINE 

FC-3520 

ENTRY 

34 

SVDWNl 

FC-3605 

CALLED 

3 

SWANDI SP 

FC-3840 

S-10 

SWANDI SP 

FC-3850 

SWCALL 

FC-3060 

ENTRY 

2 

SWRETURN 

FC-3060 

ENTRY 

3 

SWRETURN 

FC-3230 

CALLED 

8 

S30.  1 

FC-3700 

ENTRY 

4 

S32.  IFl 

FC-3720 

S-13 

S32. 1F2 

FC-3720 

S-12 

S32.1F3A 

FC-3720 

S-12 

S32. 1F3B 

FC-3720 

S-19,20 

S32/33.X 

FC-3720 

ENTRY 

9 

S32/33. 1 

FC-3720 

ENTRY 

6 

S32/33. 1 

FC-3730 

CALLED 

4 

^^S33/34.  1 

FC-3730 

CALLED 

3 

”s33/34. 1 

FC-3740 

ENTRY 

9 

S34/35. 1 

FC-3750 

CALLED 

2 

S34/35.2 

FC-3740 

ENTRY 

17 

S34/35.2 

FC-3750 

CALLED 

3 

S34/35.5 

FC-3750 

CALLED 

3 

S40.  1 

FC-3B00 

ENTRY 

5 

S40. 1 

FC-38 10 

CALLED 

2 

S40.2,3 

FC-3800 

ENTRY 

7 

S40.2,3 

FC-3810 

CALLED 

2 

S41. 1 

FC-3810 

ENTRY 

5 

S41 . 1 

FC-3830 

CALLED 

5 

S52,2 

FC-3510 

ENTRY 

17 

S52.3 

FC-3510 

ENTRY 

13 

TASKOVER 

FC-3040 

ENTRY 

16 

TESTLOnP 

FC-3355 

ENTRY 

2 

TESTXACT 

FC-3100 

ENTRY 

3 

TESTXACT 

FC-3120 

CALLED 

2 

TESTXACT 

FC-3240 

CALLED 

2 

TESTXACT 

FC-3280 

CALLED 

2 

TESTXACT 

FC-3410 

CALLED 

2 

TESTXACT 

FC-3435 

CALLED 

2 

TESTXACT 

FC-3440 

CALLED 

2 

TESTXACT 

FC-3600 

CALLED 

4,7 

TESTXACT 

FC-3770 

CALLED 

2 

TESTXACT 

FC-3780 

CALLED 

2 

TESTXACT 

FC-3790 

CALLED 

2 

T-4r5,10 

T-llt21 

T-5, 18,20, 21t36, 81 
T-4 
T-9 

C-12 


C-14 


C-12  T-13 

C-19  T-19 

T-19 


13-23 


TESTXACT 

FC-3935 

CALLED 

2 

TFFCONIC 

FC-3370 

ENTRY 

3 

TFFCONMU 

FC-3370 

ENTRY 

3 

TFFCONMU 

FC-3770 

CALLED 

16 

TFFRP/RA 

FC-3370 

ENTRY 

4 

TFFRP/RA 

FC-3770 

CALLED 

16 

TFFSW 

FC3370 

S-5 

C-5 

T-5 

TGOCQMP 

FC-3970 

ENTRY 

7 

THFTCOMP 

FC-3950 

ENTRY 

48 

THISPRFC 

FC-3770 

CALLED 

7 

THISPRFC 

FC-3790 

CALLED 

4 

THROTUP 

FC-3970 

ENTRY 

16 

TICKTFST 

FC-3770 

ENTRY 

14 

TIMFCHK 

FC-3430 

ENTRY 

15 

TI MFGMBL 

FC-3A70 

CALLED 

45 

TIMFGMBL 

FC-3480 

ENTRY 

13 

TIMFGMBL 

FC-3490 

CALLED 

14 

TIMFRAD 

FC-3360 

ENTRY 

24 

TIMFRAD 

FC-3720 

CALLED 

2 

TIMFTHFT 

FC-3360 

ENTRY 

23 

TIMESTFP 

FC-3355 

ENTRY 

5 

TIMFTHFT 

FC-3600 

CALLED 

14 

TIMFTHFT 

FC-3720 

CALLED 

14 

TIMFTHFT 

FC-3730 

CALLED 

5 

TIMFTHFT 

FC-3740 

CALLED 

7 

TJFTLAW 

FC-3470 

ENTRY 

86 

TL  IM 

FC-3210 

ENTRY 

28 

TNONTEST 

FC-3210 

ENTRY 

37 

TOTATTER 

FC-3^40 

ENTRY 

38 

TPAGREE 

FC-3120 

CALLED 

14 

TPAGREE 

FC-3150 

CALLED 

3 

TPAGREE 

FC-3220 

CALLED 

22 

TPAGREE 

FC-3240 

CALLED 

4 

TPAGREE 

FC-3820 

CALLED 

3 

TPAGREE 

FC-3B40 

CALLED 

12,22 

TPAGREE 

FC-3900 

CALLED 

41 

TPAGREE 

FC-3950 

CALLED 

36 

TPMODE 

FC-3150 

ENTRY 

6 

TRACKFLG 

FC-3220 

C-8 

TRACKFLG 

FC-3280 

T-8 

TRACKFLG 

FC-3420 

T-1 

TRACKFLG 

FC'-3  600 

S-15 

C-2 

T-2,  1 

TRACKFLG 

FC-3620 

S-2 

T-3 

TRACKFLG 

FC-36A0 

S-2 

TRACKFLG 

FC-3700 

S-2 

TRACKFLG 

FC-3710 

S-2 

TRACKFLG 

FC-3720 

S-2 

TRACKFLG 

FC-3730 

S-1 

TRACKFLG 

FC-3740 

S-2 

TRACKFLG 

FC-3935 

T-6 

TRANSPOS 

FC-3430 

ENTRY 

23 

TRFAI LOF 

FC-3050 

ENTRY 

11 

TRFAILON 

FC-3050 

ENTRY 

11 

TRG^NBSM 

FC-3320 

ENTRY 

10 

TRG^NBSM 

FC-3520 

CALLED 

39 

TRG*NBSM 

FC-3530 

CALLED 

11,12, 17 

TRG^NBSM 

FC-3600 

CALLED 

77 

TRG*SMNB 

TRG«SMNB 

TRIMDONE 

TR I MG  1MB 

TRMTRACK 

TRNSPSPD 

TWIDDLE 

T3RUPT 

TARUPT 

T6J0BCHK 

ULLAGFLG 

ULLAGFLG 

ULLAGFLG 

UNSCTEST 

UPDATEVG 

UPDATEVG 

UPDATFLG 

UPDATFLG 

UPDATFLG 

UPDATFLG 

UPDATFLG 

UPDATFLG 

UPDATOFF 

UPENT2 

UPFLAG 

UPLOCKFL 

UPOUT 

UPRUPT 

UPTMFAST 

USEORFLG 

USEORFLG 

USEORFLG 

USEORFLG 

USPCADR 

USPRCADR 

JSWITCH 

VACRELEA 

VARALARM 

VARALARM 

VARALARM 

VARALARM 

VARDELAY 

VARDELAY 

VARDELAY 

VARDELAY 

VARDELAY 

VARDELAY 

VARDELAY 

VECAGREE 

VECPOINT 

VECPfJINT 

VECPOINT 

VECSGNAG 

VECSHIFT 

VEHUPFLG 

VEHUPFLG 

VELOATA 


FC-3320 

ENTRY 

9 

FC-3935 

CALLED 

24 

FC-3440 

ENTRY 

12 

FC-3440 

CALLED 

11 

FC-3600 

ENTRY 

2 

FC-3430 

ENTRY 

23 

FC-3040 

ENTRY 

6 

FC-3040 

ENTRY 

14 

FC-3210 

ENTRY 

2 

FC-3440 

FC-3470 

ENTRY 

29 

FC-3840 

EC-3970 

S-18,20 

C-18 

C-3 

FC-3960 

ENTRY 

26 

FC-3R10 

ENTRY 

5 

FC-3820 

CALLED 

2 

FC-3600 

S-15 

C-2 

EC-3700 

S-2 

C-2 

FC-3710 

S-2 

C-2 

FC-3720 

FC-3730 

FC-3740 

S-2, 4 
S-4 

S-2, 25 

C-8 

FC-3600 

ENTRY 

10 

FC-3050 

ENTRY 

2 

FC-3050 

ENTRY 

3 

FC-3110 

S-8 

C-9 

FC-3350 

CALLED 

22 

FC-3110 

ENTRY 

6 

FC-3210 

FC-3470 

FC-3490 

FC-3840 

ENTRY 

S-23 

5? 

FC-3850 

S-13 

C-12 

FC-3320 

CALLED 

3,4 

FC-3060 

ENTRY 

7 

FC-3355 

S-34 

C-9 

FC-3900 

CALLED 

27,28 

FC-3140 

ENTRY 

3 

FC-3210 

CALLED 

32 

EC-3220 

CALLED 

33 

FC-3720 

CALLED 

23 

FC-3040 

ENTRY 

7 

FC-3210 

CALLED 

42,43 

FC-3220 

CALLED 

4,9,12 

FC-3R50 

CALLED 

2,4 

FC-3930 

CALLED 

14 

FC-3935 

CALLED 

8 

FC-3980 

CALLED 

5,  10 

FC-3150 

CALLED 

11,12 

FC-3400 

CALLED 

4 

FC-3420 

ENTRY 

5 

FC-3600 

CALLED 

25 

FC-3150 

ENTRY 

11 

FC-3760 

ENTRY 

10 

FC-3600 

S-11 

C-ll 

FC-3605 

FC-3935 

S-3 

C-3 

C-12 

T-4f) 


T-56 


T-9 


T-44,62 

T-14 


T-9,2B»33 


T-20,75»78,79 

T-20 
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VERR57  FC-3935 


ENTRY  2 


VERB58  FC-3935 
VERB59  FC-3935 
VERB64  FC-3435 


VERBB5 

VERIFLAG 

VERTGUI D 

VFAILFLG 

VFLAG 

VFLSHFLG 

VFLSHFLG 

VINTFLAG 

VINTFLAG 

VINTFLAG 

VINTFLAG 

VNPOOH 

VNPOOH 

VNPOOH 

VN16A5 

VN16A5 

VN16A5 

VN16A5 

VX  1 NH 

VXV 

V1ST02S 

V1ST02S 

V1ST02S 

V1ST02S 

V37 

V37FLAG 

V37FLAG 

V37FLAG 

V37FLAG 

V37FLAG 

V37KLFAN 

VA7TXACT 

V67 

V67FLAG 

V70UPDAT 

V7UJPDAT 

V720PDAT 

V73UPnAT 

VR2CALL 

V82EMFLG 

VR2PERF 

VR3PERF 

VR9CALL 

VR9PERF 
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2 
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ENTRY 

2 

ENTRY 

2 

ENTRY 

3 

ENTRY 

2 

ENTRY 

2 

ENTRY 

6 

ENTRY 

10 

S-3 

C-3 

S-6 

C-26 

1 _9fi 


XDSPFLAG 
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XMKRUPT 
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9 
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9 
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FC-3900 

CALLED 

27 

ZATTEROR 
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FC-3150 

ENTRY 

8 

2SECOELY 

FC-3935 

CALLED 

3 

2V1ST02S 
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FC-3400 

C-4 

3AX1SFLG 
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